Developer CD Series 1999 December: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 …ember: Reference Library / Apple Developer Reference Library (December 1999) (Disk 1).iso / pc / technical documentation / develop / develop issue 19 / develop issue 19 code / adding gx printing to qd É.sea / Adding GX Printing to QD Apps / Simple Sample ƒ / menus & windows.c < prev next >
MacBinary | 1994-08-17 | 21.5 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Aug 17 13:50:36 1994, modified Wed Aug 17 13:50:36 1994, creator Think C, type ASCII, 21101 bytes "menus & windows.c" , at 0x52ed 662 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 6d 65 6e 75 73 20 | 26 20 77 69 6e 64 6f 77 |..menus |& window|
|00000010| 73 2e 63 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.c.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 52 6d 00 | 00 02 96 aa 77 fe 6c aa |.....Rm.|....w.l.|
|00000060| 77 fe 6c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |w.l.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8c be 00 00 |........|........|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 0d 0d | 09 6d 65 6e 75 73 20 26 |******..|.menus &|
|000000d0| 20 77 69 6e 64 6f 77 73 | 2e 63 0d 09 0d 09 54 68 | windows|.c....Th|
|000000e0| 69 73 20 66 69 6c 65 20 | 63 6f 6e 74 61 69 6e 73 |is file |contains|
|000000f0| 20 74 68 65 20 6d 65 6e | 75 20 61 6e 64 20 77 69 | the men|u and wi|
|00000100| 6e 64 6f 77 20 68 61 6e | 64 6c 69 6e 67 20 63 6f |ndow han|dling co|
|00000110| 64 65 20 66 6f 72 20 74 | 68 65 0d 09 51 75 69 63 |de for t|he..Quic|
|00000120| 6b 44 72 61 77 20 47 58 | 20 75 6e 61 77 61 72 65 |kDraw GX| unaware|
|00000130| 20 73 61 6d 70 6c 65 2c | 20 22 53 69 6d 70 6c 65 | sample,| "Simple|
|00000140| 20 53 61 6d 70 6c 65 2e | 22 0d 0d 09 41 64 64 69 | Sample.|"...Addi|
|00000150| 74 69 6f 6e 61 6c 20 69 | 6e 66 6f 20 63 61 6e 20 |tional i|nfo can |
|00000160| 62 65 20 66 6f 75 6e 64 | 20 69 6e 20 74 68 65 20 |be found| in the |
|00000170| 72 65 6c 61 74 65 64 20 | 64 65 76 65 6c 6f 70 20 |related |develop |
|00000180| 23 31 39 20 61 72 74 69 | 63 6c 65 2c 0d 09 22 41 |#19 arti|cle,.."A|
|00000190| 64 64 69 6e 67 20 51 75 | 69 63 6b 44 72 61 77 20 |dding Qu|ickDraw |
|000001a0| 47 58 20 50 72 69 6e 74 | 69 6e 67 20 74 6f 20 51 |GX Print|ing to Q|
|000001b0| 75 69 63 6b 44 72 61 77 | 20 41 70 70 6c 69 63 61 |uickDraw| Applica|
|000001c0| 74 69 6f 6e 73 2e 22 0d | 0d 09 44 61 76 65 20 48 |tions.".|..Dave H|
|000001d0| 65 72 73 65 79 2c 20 41 | 70 70 6c 65 20 44 65 76 |ersey, A|pple Dev|
|000001e0| 65 6c 6f 70 65 72 20 54 | 65 63 68 6e 69 63 61 6c |eloper T|echnical|
|000001f0| 20 53 75 70 70 6f 72 74 | 2e 0d 09 0d 09 d1 d1 d1 | Support|........|
|00000200| d1 d1 d1 d1 20 45 64 69 | 74 20 54 72 61 69 6c 20 |.... Edi|t Trail |
|00000210| d1 d1 d1 d1 d1 d1 d1 0d | 09 0d 09 63 6f 6e 73 74 |........|...const|
|00000220| 72 75 63 74 65 64 3a 09 | 09 09 09 09 09 09 09 09 |ructed:.|........|
|00000230| 31 2f 32 32 2f 39 34 20 | 20 2d 20 64 6d 68 0d 09 |1/22/94 | - dmh..|
|00000240| 63 6c 65 61 6e 65 64 20 | 75 70 20 66 6f 72 20 32 |cleaned |up for 2|
|00000250| 6e 64 20 64 72 61 66 74 | 20 6f 66 20 64 65 76 65 |nd draft| of deve|
|00000260| 6c 6f 70 20 61 72 74 69 | 63 6c 65 3a 09 33 2f 31 |lop arti|cle:.3/1|
|00000270| 30 2f 39 34 20 20 2d 20 | 64 6d 68 0d 09 63 6c 65 |0/94  - |dmh..cle|
|00000280| 61 6e 65 64 20 75 70 20 | 66 6f 72 20 66 69 6e 61 |aned up |for fina|
|00000290| 6c 3a 09 09 09 09 09 09 | 09 34 2f 31 34 2f 39 34 |l:......|.4/14/94|
|000002a0| 20 20 2d 20 64 6d 68 0d | 09 72 65 6d 6f 76 65 64 |  - dmh.|.removed|
|000002b0| 20 73 70 72 69 6e 74 66 | 20 63 61 6c 6c 73 2c 20 | sprintf| calls, |
|000002c0| 74 6f 20 61 76 6f 69 64 | 20 6e 65 65 64 20 66 6f |to avoid| need fo|
|000002d0| 72 20 41 4e 53 49 20 20 | 20 38 2f 31 36 2f 39 34 |r ANSI  | 8/16/94|
|000002e0| 20 20 2d 20 6e 69 63 6b | 0d 09 61 64 64 65 64 20 |  - nick|..added |
|000002f0| 4e 65 77 47 58 50 72 69 | 6e 74 69 6e 67 45 76 65 |NewGXPri|ntingEve|
|00000300| 6e 74 50 72 6f 63 20 74 | 6f 20 62 75 69 6c 64 20 |ntProc t|o build |
|00000310| 0d 09 64 65 73 63 72 69 | 70 74 6f 72 73 20 66 6f |..descri|ptors fo|
|00000320| 72 20 70 70 63 20 20 20 | 20 20 20 20 20 20 20 20 |r ppc   |        |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000340| 20 20 38 2f 31 37 2f 39 | 34 20 20 2d 20 6e 69 63 |  8/17/9|4  - nic|
|00000350| 6b 0d 09 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |k...****|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 0d 23 69 6e 63 |********|*/..#inc|
|000003a0| 6c 75 64 65 20 22 53 69 | 6d 70 6c 65 20 53 61 6d |lude "Si|mple Sam|
|000003b0| 70 6c 65 2e 68 22 0d 0d | 0d 2f 2a 2a 2a 2a 2a 2a |ple.h"..|./******|
|000003c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 0d 20 | 20 4d 79 43 72 65 61 74 |******. | MyCreat|
|00000400| 65 44 6f 63 75 6d 65 6e | 74 20 2d 20 54 68 69 73 |eDocumen|t - This|
|00000410| 20 72 6f 75 74 69 6e 65 | 20 69 73 20 63 61 6c 6c | routine| is call|
|00000420| 65 64 20 74 6f 20 63 72 | 65 61 74 65 20 61 20 6e |ed to cr|eate a n|
|00000430| 65 77 0d 20 20 64 6f 63 | 75 6d 65 6e 74 2e 0d 0d |ew.  doc|ument...|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|00000480| 4f 53 45 72 72 20 4d 79 | 43 72 65 61 74 65 44 6f |OSErr My|CreateDo|
|00000490| 63 75 6d 65 6e 74 28 63 | 68 61 72 20 2a 64 6f 63 |cument(c|har *doc|
|000004a0| 54 69 74 6c 65 2c 20 4d | 79 44 6f 63 75 6d 65 6e |Title, M|yDocumen|
|000004b0| 74 50 74 72 20 2a 63 72 | 65 61 74 65 64 44 6f 63 |tPtr *cr|eatedDoc|
|000004c0| 75 6d 65 6e 74 29 0d 7b | 0d 09 4f 53 45 72 72 09 |ument).{|..OSErr.|
|000004d0| 09 09 65 72 72 3b 0d 09 | 57 69 6e 64 6f 77 50 74 |..err;..|WindowPt|
|000004e0| 72 09 09 64 6f 63 75 6d | 65 6e 74 57 69 6e 64 6f |r..docum|entWindo|
|000004f0| 77 3b 0d 09 6c 6f 6e 67 | 09 09 09 6e 65 77 50 61 |w;..long|...newPa|
|00000500| 67 65 3b 0d 0d 09 2a 63 | 72 65 61 74 65 64 44 6f |ge;...*c|reatedDo|
|00000510| 63 75 6d 65 6e 74 20 3d | 20 6e 69 6c 3b 0d 0d 2f |cument =| nil;../|
|00000520| 2f 20 43 72 65 61 74 65 | 20 61 20 77 69 6e 64 6f |/ Create| a windo|
|00000530| 77 20 66 6f 72 20 6f 75 | 72 20 64 6f 63 75 6d 65 |w for ou|r docume|
|00000540| 6e 74 2e 0d 0d 09 64 6f | 63 75 6d 65 6e 74 57 69 |nt....do|cumentWi|
|00000550| 6e 64 6f 77 20 3d 20 28 | 57 69 6e 64 6f 77 50 74 |ndow = (|WindowPt|
|00000560| 72 29 20 4e 65 77 43 57 | 69 6e 64 6f 77 28 6e 69 |r) NewCW|indow(ni|
|00000570| 6c 2c 20 26 67 57 69 6e | 64 6f 77 52 65 63 74 2c |l, &gWin|dowRect,|
|00000580| 20 28 43 6f 6e 73 74 53 | 74 72 32 35 35 50 61 72 | (ConstS|tr255Par|
|00000590| 61 6d 29 20 64 6f 63 54 | 69 74 6c 65 2c 20 66 61 |am) docT|itle, fa|
|000005a0| 6c 73 65 2c 20 6e 6f 47 | 72 6f 77 44 6f 63 50 72 |lse, noG|rowDocPr|
|000005b0| 6f 63 2c 20 28 57 69 6e | 64 6f 77 50 74 72 29 2d |oc, (Win|dowPtr)-|
|000005c0| 31 4c 2c 20 74 72 75 65 | 2c 20 30 4c 29 3b 0d 09 |1L, true|, 0L);..|
|000005d0| 72 65 71 75 69 72 65 5f | 61 63 74 69 6f 6e 28 64 |require_|action(d|
|000005e0| 6f 63 75 6d 65 6e 74 57 | 69 6e 64 6f 77 2c 20 43 |ocumentW|indow, C|
|000005f0| 6f 75 6c 64 4e 6f 74 43 | 72 65 61 74 65 57 69 6e |ouldNotC|reateWin|
|00000600| 64 6f 77 2c 20 65 72 72 | 20 3d 20 4d 65 6d 45 72 |dow, err| = MemEr|
|00000610| 72 6f 72 28 29 3b 29 3b | 0d 0d 2f 2f 20 49 6e 69 |ror(););|..// Ini|
|00000620| 74 69 61 6c 69 7a 65 20 | 6f 75 72 20 70 72 69 76 |tialize |our priv|
|00000630| 61 74 65 20 64 61 74 61 | 20 66 6f 72 20 74 68 65 |ate data| for the|
|00000640| 20 64 6f 63 75 6d 65 6e | 74 2e 0d 0d 09 2a 63 72 | documen|t....*cr|
|00000650| 65 61 74 65 64 44 6f 63 | 75 6d 65 6e 74 20 3d 20 |eatedDoc|ument = |
|00000660| 28 4d 79 44 6f 63 75 6d | 65 6e 74 50 74 72 29 20 |(MyDocum|entPtr) |
|00000670| 4e 65 77 50 74 72 43 6c | 65 61 72 28 73 69 7a 65 |NewPtrCl|ear(size|
|00000680| 6f 66 28 4d 79 44 6f 63 | 75 6d 65 6e 74 52 65 63 |of(MyDoc|umentRec|
|00000690| 29 29 3b 0d 09 72 65 71 | 75 69 72 65 5f 61 63 74 |));..req|uire_act|
|000006a0| 69 6f 6e 28 2a 63 72 65 | 61 74 65 64 44 6f 63 75 |ion(*cre|atedDocu|
|000006b0| 6d 65 6e 74 2c 20 43 6f | 75 6c 64 4e 6f 74 43 72 |ment, Co|uldNotCr|
|000006c0| 65 61 74 65 44 6f 63 52 | 65 63 2c 20 65 72 72 20 |eateDocR|ec, err |
|000006d0| 3d 20 4d 65 6d 45 72 72 | 6f 72 28 29 3b 29 3b 0d |= MemErr|or(););.|
|000006e0| 0d 2f 2f 09 43 72 65 61 | 74 65 20 61 20 70 72 69 |.//.Crea|te a pri|
|000006f0| 6e 74 20 68 61 6e 64 6c | 65 2e 0d 0d 09 28 2a 63 |nt handl|e....(*c|
|00000700| 72 65 61 74 65 64 44 6f | 63 75 6d 65 6e 74 29 2d |reatedDo|cument)-|
|00000710| 3e 64 6f 63 75 6d 65 6e | 74 50 72 69 6e 74 48 64 |>documen|tPrintHd|
|00000720| 6c 20 3d 20 28 54 48 50 | 72 69 6e 74 29 20 4e 65 |l = (THP|rint) Ne|
|00000730| 77 48 61 6e 64 6c 65 28 | 73 69 7a 65 6f 66 28 54 |wHandle(|sizeof(T|
|00000740| 50 72 69 6e 74 29 29 3b | 0d 09 65 72 72 20 3d 20 |Print));|..err = |
|00000750| 4d 65 6d 45 72 72 6f 72 | 28 29 3b 0d 0d 09 69 66 |MemError|();...if|
|00000760| 20 28 21 65 72 72 29 0d | 09 7b 0d 09 09 50 72 4f | (!err).|.{...PrO|
|00000770| 70 65 6e 28 29 3b 0d 09 | 09 50 72 69 6e 74 44 65 |pen();..|.PrintDe|
|00000780| 66 61 75 6c 74 28 28 2a | 63 72 65 61 74 65 64 44 |fault((*|createdD|
|00000790| 6f 63 75 6d 65 6e 74 29 | 2d 3e 64 6f 63 75 6d 65 |ocument)|->docume|
|000007a0| 6e 74 50 72 69 6e 74 48 | 64 6c 29 3b 0d 09 09 50 |ntPrintH|dl);...P|
|000007b0| 72 43 6c 6f 73 65 28 29 | 3b 0d 09 7d 0d 0d 2f 2a |rClose()|;..}../*|
|000007c0| 0d 09 49 66 20 74 68 65 | 72 65 20 77 65 72 65 20 |..If the|re were |
|000007d0| 6e 6f 20 65 72 72 6f 72 | 73 2c 20 61 64 64 20 31 |no error|s, add 1|
|000007e0| 20 70 61 67 65 20 74 6f | 20 74 68 65 20 64 6f 63 | page to| the doc|
|000007f0| 75 6d 65 6e 74 2c 20 61 | 6e 64 0d 09 73 74 6f 72 |ument, a|nd..stor|
|00000800| 65 20 61 20 72 65 66 65 | 72 65 6e 63 65 20 74 6f |e a refe|rence to|
|00000810| 20 6f 75 72 20 70 72 69 | 76 61 74 65 20 64 61 74 | our pri|vate dat|
|00000820| 61 20 69 6e 20 74 68 65 | 20 64 6f 63 75 6d 65 6e |a in the| documen|
|00000830| 74 27 73 0d 09 77 69 6e | 64 6f 77 27 73 20 72 65 |t's..win|dow's re|
|00000840| 66 43 6f 6e 20 66 69 65 | 6c 64 2e 0d 2a 2f 0d 09 |fCon fie|ld..*/..|
|00000850| 6e 72 65 71 75 69 72 65 | 28 65 72 72 2c 20 43 6f |nrequire|(err, Co|
|00000860| 75 6c 64 4e 6f 74 43 72 | 65 61 74 65 50 72 69 6e |uldNotCr|eatePrin|
|00000870| 74 53 74 75 66 66 29 3b | 0d 09 0d 09 28 2a 63 72 |tStuff);|....(*cr|
|00000880| 65 61 74 65 64 44 6f 63 | 75 6d 65 6e 74 29 2d 3e |eatedDoc|ument)->|
|00000890| 6e 75 6d 50 61 67 65 73 | 20 3d 20 30 3b 0d 09 28 |numPages| = 0;..(|
|000008a0| 2a 63 72 65 61 74 65 64 | 44 6f 63 75 6d 65 6e 74 |*created|Document|
|000008b0| 29 2d 3e 64 6f 63 75 6d | 65 6e 74 57 69 6e 64 6f |)->docum|entWindo|
|000008c0| 77 20 3d 20 64 6f 63 75 | 6d 65 6e 74 57 69 6e 64 |w = docu|mentWind|
|000008d0| 6f 77 3b 0d 09 28 2a 63 | 72 65 61 74 65 64 44 6f |ow;..(*c|reatedDo|
|000008e0| 63 75 6d 65 6e 74 29 2d | 3e 64 6f 63 75 6d 65 6e |cument)-|>documen|
|000008f0| 74 46 53 53 70 65 63 2e | 6e 61 6d 65 5b 30 5d 20 |tFSSpec.|name[0] |
|00000900| 3d 20 30 3b 09 09 2f 2f | 20 49 6e 64 69 63 61 74 |= 0;..//| Indicat|
|00000910| 65 73 20 74 68 61 74 20 | 64 6f 63 75 6d 65 6e 74 |es that |document|
|00000920| 20 68 61 73 20 6e 65 76 | 65 72 0d 09 09 09 09 09 | has nev|er......|
|00000930| 09 09 09 09 09 09 09 09 | 09 2f 2f 20 62 65 65 6e |........|.// been|
|00000940| 20 73 61 76 65 64 2e 0d | 09 69 66 20 28 64 6f 63 | saved..|.if (doc|
|00000950| 54 69 74 6c 65 5b 30 5d | 20 3e 20 33 31 29 0d 09 |Title[0]| > 31)..|
|00000960| 09 64 6f 63 54 69 74 6c | 65 5b 30 5d 20 3d 20 33 |.docTitl|e[0] = 3|
|00000970| 31 3b 0d 0d 09 42 6c 6f | 63 6b 4d 6f 76 65 28 26 |1;...Blo|ckMove(&|
|00000980| 64 6f 63 54 69 74 6c 65 | 5b 30 5d 2c 20 26 28 2a |docTitle|[0], &(*|
|00000990| 63 72 65 61 74 65 64 44 | 6f 63 75 6d 65 6e 74 29 |createdD|ocument)|
|000009a0| 2d 3e 64 6f 63 75 6d 65 | 6e 74 54 69 74 6c 65 5b |->docume|ntTitle[|
|000009b0| 30 5d 2c 20 28 6c 6f 6e | 67 29 20 64 6f 63 54 69 |0], (lon|g) docTi|
|000009c0| 74 6c 65 5b 30 5d 20 2b | 31 29 3b 0d 09 6e 65 77 |tle[0] +|1);..new|
|000009d0| 50 61 67 65 20 3d 20 30 | 3b 0d 09 65 72 72 20 3d |Page = 0|;..err =|
|000009e0| 20 4d 79 49 6e 73 65 72 | 74 50 61 67 65 28 2a 63 | MyInser|tPage(*c|
|000009f0| 72 65 61 74 65 64 44 6f | 63 75 6d 65 6e 74 2c 20 |reatedDo|cument, |
|00000a00| 26 6e 65 77 50 61 67 65 | 29 3b 0d 09 28 2a 63 72 |&newPage|);..(*cr|
|00000a10| 65 61 74 65 64 44 6f 63 | 75 6d 65 6e 74 29 2d 3e |eatedDoc|ument)->|
|00000a20| 63 75 72 50 61 67 65 20 | 3d 20 6e 65 77 50 61 67 |curPage |= newPag|
|00000a30| 65 3b 0d 0d 2f 2f 20 53 | 65 74 20 74 68 65 20 72 |e;..// S|et the r|
|00000a40| 65 66 43 6f 6e 20 74 6f | 20 70 6f 69 6e 74 20 74 |efCon to| point t|
|00000a50| 6f 20 6f 75 72 20 64 6f | 63 75 6d 65 6e 74 20 69 |o our do|cument i|
|00000a60| 6e 66 6f 20 73 74 72 75 | 63 74 75 72 65 2e 0d 0d |nfo stru|cture...|
|00000a70| 09 6e 72 65 71 75 69 72 | 65 28 65 72 72 2c 20 43 |.nrequir|e(err, C|
|00000a80| 6f 75 6c 64 4e 6f 74 49 | 6e 73 65 72 74 50 61 67 |ouldNotI|nsertPag|
|00000a90| 65 29 3b 0d 09 53 65 74 | 57 52 65 66 43 6f 6e 28 |e);..Set|WRefCon(|
|00000aa0| 64 6f 63 75 6d 65 6e 74 | 57 69 6e 64 6f 77 2c 20 |document|Window, |
|00000ab0| 28 6c 6f 6e 67 29 20 2a | 63 72 65 61 74 65 64 44 |(long) *|createdD|
|00000ac0| 6f 63 75 6d 65 6e 74 29 | 3b 0d 09 72 65 71 75 69 |ocument)|;..requi|
|00000ad0| 72 65 28 65 72 72 2c 20 | 4e 6f 50 72 6f 62 6c 65 |re(err, |NoProble|
|00000ae0| 6d 73 29 3b 0d 0d 43 6f | 75 6c 64 4e 6f 74 49 6e |ms);..Co|uldNotIn|
|00000af0| 73 65 72 74 50 61 67 65 | 3a 0d 09 44 69 73 70 6f |sertPage|:..Dispo|
|00000b00| 73 48 61 6e 64 6c 65 28 | 28 48 61 6e 64 6c 65 29 |sHandle(|(Handle)|
|00000b10| 20 28 2a 63 72 65 61 74 | 65 64 44 6f 63 75 6d 65 | (*creat|edDocume|
|00000b20| 6e 74 29 2d 3e 64 6f 63 | 75 6d 65 6e 74 50 72 69 |nt)->doc|umentPri|
|00000b30| 6e 74 48 64 6c 29 3b 0d | 0d 43 6f 75 6c 64 4e 6f |ntHdl);.|.CouldNo|
|00000b40| 74 43 72 65 61 74 65 50 | 72 69 6e 74 53 74 75 66 |tCreateP|rintStuf|
|00000b50| 66 3a 0d 09 44 69 73 70 | 6f 73 65 50 74 72 28 28 |f:..Disp|osePtr((|
|00000b60| 50 74 72 29 20 2a 63 72 | 65 61 74 65 64 44 6f 63 |Ptr) *cr|eatedDoc|
|00000b70| 75 6d 65 6e 74 29 3b 0d | 0d 43 6f 75 6c 64 4e 6f |ument);.|.CouldNo|
|00000b80| 74 43 72 65 61 74 65 44 | 6f 63 52 65 63 3a 0d 09 |tCreateD|ocRec:..|
|00000b90| 44 69 73 70 6f 73 65 57 | 69 6e 64 6f 77 28 64 6f |DisposeW|indow(do|
|00000ba0| 63 75 6d 65 6e 74 57 69 | 6e 64 6f 77 29 3b 0d 0d |cumentWi|ndow);..|
|00000bb0| 43 6f 75 6c 64 4e 6f 74 | 43 72 65 61 74 65 57 69 |CouldNot|CreateWi|
|00000bc0| 6e 64 6f 77 3a 0d 4e 6f | 50 72 6f 62 6c 65 6d 73 |ndow:.No|Problems|
|00000bd0| 3a 0d 09 72 65 74 75 72 | 6e 20 65 72 72 3b 0d 7d |:..retur|n err;.}|
|00000be0| 0d 0d 0d 2f 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.../****|********|
|00000bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c20| 0d 20 20 4d 79 44 69 73 | 70 6f 73 65 44 6f 63 75 |.  MyDis|poseDocu|
|00000c30| 6d 65 6e 74 20 2d 20 54 | 68 69 73 20 72 6f 75 74 |ment - T|his rout|
|00000c40| 69 6e 65 20 69 73 20 63 | 61 6c 6c 65 64 20 77 68 |ine is c|alled wh|
|00000c50| 65 6e 20 77 65 20 6e 65 | 65 64 20 74 6f 0d 20 20 |en we ne|ed to.  |
|00000c60| 64 69 73 70 6f 73 65 20 | 6f 66 20 61 20 77 69 6e |dispose |of a win|
|00000c70| 64 6f 77 2e 0d 0d 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |dow...**|********|
|00000c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cb0| 2a 2a 2a 2f 0d 0d 76 6f | 69 64 20 4d 79 44 69 73 |***/..vo|id MyDis|
|00000cc0| 70 6f 73 65 44 6f 63 75 | 6d 65 6e 74 28 4d 79 44 |poseDocu|ment(MyD|
|00000cd0| 6f 63 75 6d 65 6e 74 50 | 74 72 20 77 68 69 63 68 |ocumentP|tr which|
|00000ce0| 44 6f 63 75 6d 65 6e 74 | 29 0d 7b 0d 09 6c 6f 6e |Document|).{..lon|
|00000cf0| 67 09 09 6e 75 6d 50 61 | 67 65 73 2c 20 70 67 3b |g..numPa|ges, pg;|
|00000d00| 0d 09 57 69 6e 64 6f 77 | 50 74 72 09 64 6f 63 57 |..Window|Ptr.docW|
|00000d10| 69 6e 64 6f 77 3b 0d 09 | 0d 2f 2f 20 44 69 73 70 |indow;..|.// Disp|
|00000d20| 6f 73 65 20 6f 66 20 6f | 75 72 20 70 72 69 76 61 |ose of o|ur priva|
|00000d30| 74 65 20 64 61 74 61 20 | 66 6f 72 20 65 61 63 68 |te data |for each|
|00000d40| 20 70 61 67 65 20 6f 66 | 20 74 68 69 73 20 64 6f | page of| this do|
|00000d50| 63 75 6d 65 6e 74 2e 0d | 0d 09 6e 75 6d 50 61 67 |cument..|..numPag|
|00000d60| 65 73 20 3d 20 77 68 69 | 63 68 44 6f 63 75 6d 65 |es = whi|chDocume|
|00000d70| 6e 74 2d 3e 6e 75 6d 50 | 61 67 65 73 3b 0d 0d 09 |nt->numP|ages;...|
|00000d80| 66 6f 72 20 28 70 67 20 | 3d 20 6e 75 6d 50 61 67 |for (pg |= numPag|
|00000d90| 65 73 3b 20 70 67 20 3e | 3d 20 31 3b 20 70 67 2d |es; pg >|= 1; pg-|
|00000da0| 2d 29 0d 09 09 4d 79 44 | 69 73 70 6f 73 65 50 61 |-)...MyD|isposePa|
|00000db0| 67 65 28 77 68 69 63 68 | 44 6f 63 75 6d 65 6e 74 |ge(which|Document|
|00000dc0| 2c 20 70 67 29 3b 0d 0d | 2f 2f 09 44 69 73 70 6f |, pg);..|//.Dispo|
|00000dd0| 73 65 20 6f 66 20 6f 75 | 72 20 64 6f 63 75 6d 65 |se of ou|r docume|
|00000de0| 6e 74 27 73 20 70 72 69 | 6e 74 20 72 65 63 6f 72 |nt's pri|nt recor|
|00000df0| 64 20 61 6e 64 20 70 72 | 69 76 61 74 65 20 64 61 |d and pr|ivate da|
|00000e00| 74 61 2e 0d 0d 09 69 66 | 20 28 77 68 69 63 68 44 |ta....if| (whichD|
|00000e10| 6f 63 75 6d 65 6e 74 2d | 3e 64 6f 63 75 6d 65 6e |ocument-|>documen|
|00000e20| 74 50 72 69 6e 74 48 64 | 6c 20 21 3d 20 6e 69 6c |tPrintHd|l != nil|
|00000e30| 29 0d 09 09 44 69 73 70 | 6f 73 48 61 6e 64 6c 65 |)...Disp|osHandle|
|00000e40| 28 28 48 61 6e 64 6c 65 | 29 20 77 68 69 63 68 44 |((Handle|) whichD|
|00000e50| 6f 63 75 6d 65 6e 74 2d | 3e 64 6f 63 75 6d 65 6e |ocument-|>documen|
|00000e60| 74 50 72 69 6e 74 48 64 | 6c 29 3b 0d 09 0d 20 20 |tPrintHd|l);...  |
|00000e70| 20 09 44 69 73 70 6f 73 | 65 57 69 6e 64 6f 77 28 | .Dispos|eWindow(|
|00000e80| 77 68 69 63 68 44 6f 63 | 75 6d 65 6e 74 2d 3e 64 |whichDoc|ument->d|
|00000e90| 6f 63 75 6d 65 6e 74 57 | 69 6e 64 6f 77 29 3b 0d |ocumentW|indow);.|
|00000ea0| 09 44 69 73 70 6f 73 65 | 50 74 72 28 28 50 74 72 |.Dispose|Ptr((Ptr|
|00000eb0| 29 20 77 68 69 63 68 44 | 6f 63 75 6d 65 6e 74 29 |) whichD|ocument)|
|00000ec0| 3b 0d 7d 0d 0d 0d 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;.}.../*|********|
|00000ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f00| 2a 2a 2a 0d 20 20 4d 79 | 49 6e 73 65 72 74 50 61 |***.  My|InsertPa|
|00000f10| 67 65 20 2d 20 54 68 69 | 73 20 72 6f 75 74 69 6e |ge - Thi|s routin|
|00000f20| 65 20 69 73 20 63 61 6c | 6c 65 64 20 77 68 65 6e |e is cal|led when|
|00000f30| 20 77 65 20 6e 65 65 64 | 20 74 6f 20 61 64 64 0d | we need| to add.|
|00000f40| 20 20 61 20 70 61 67 65 | 20 74 6f 20 61 20 64 6f |  a page| to a do|
|00000f50| 63 75 6d 65 6e 74 2e 20 | 20 54 68 65 20 70 61 67 |cument. | The pag|
|00000f60| 65 20 69 73 20 61 64 64 | 65 64 20 41 46 54 45 52 |e is add|ed AFTER|
|00000f70| 20 74 68 65 20 70 61 67 | 65 0d 20 20 6e 75 6d 62 | the pag|e.  numb|
|00000f80| 65 72 20 70 61 73 73 65 | 64 20 28 31 2d 62 61 73 |er passe|d (1-bas|
|00000f90| 65 64 29 2e 20 20 49 66 | 20 77 68 69 63 68 50 67 |ed).  If| whichPg|
|00000fa0| 20 69 73 20 67 72 65 61 | 74 65 72 20 74 68 61 6e | is grea|ter than|
|00000fb0| 20 74 68 65 0d 20 20 6c | 61 73 74 20 70 61 67 65 | the.  l|ast page|
|00000fc0| 20 6f 66 20 74 68 65 20 | 64 6f 63 75 6d 65 6e 74 | of the |document|
|00000fd0| 2c 20 74 68 65 20 6e 65 | 77 20 70 61 67 65 20 69 |, the ne|w page i|
|00000fe0| 73 20 61 64 64 65 64 20 | 74 6f 20 74 68 65 0d 20 |s added |to the. |
|00000ff0| 20 65 6e 64 20 6f 66 20 | 74 68 65 20 64 6f 63 75 | end of |the docu|
|00001000| 6d 65 6e 74 2e 20 20 49 | 66 20 77 68 69 63 68 50 |ment.  I|f whichP|
|00001010| 67 20 69 73 20 6c 65 73 | 73 20 74 68 61 6e 20 31 |g is les|s than 1|
|00001020| 2c 20 74 68 65 20 70 61 | 67 65 0d 20 20 69 73 20 |, the pa|ge.  is |
|00001030| 61 64 64 65 64 20 74 6f | 20 74 68 65 20 62 65 67 |added to| the beg|
|00001040| 69 6e 6e 69 6e 67 20 6f | 66 20 74 68 65 20 64 6f |inning o|f the do|
|00001050| 63 2e 20 20 54 68 65 20 | 70 61 67 65 20 6e 75 6d |c.  The |page num|
|00001060| 62 65 72 20 6f 66 0d 20 | 20 74 68 65 20 6e 65 77 |ber of. | the new|
|00001070| 20 70 61 67 65 20 69 73 | 20 72 65 74 75 72 6e 65 | page is| returne|
|00001080| 64 20 69 6e 20 77 68 69 | 63 68 50 67 2e 0d 0d 2a |d in whi|chPg...*|
|00001090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0d 0d 4f |********|****/..O|
|000010d0| 53 45 72 72 20 4d 79 49 | 6e 73 65 72 74 50 61 67 |SErr MyI|nsertPag|
|000010e0| 65 28 4d 79 44 6f 63 75 | 6d 65 6e 74 50 74 72 20 |e(MyDocu|mentPtr |
|000010f0| 77 68 69 63 68 44 6f 63 | 75 6d 65 6e 74 2c 20 6c |whichDoc|ument, l|
|00001100| 6f 6e 67 20 2a 77 68 69 | 63 68 50 61 67 65 29 0d |ong *whi|chPage).|
|00001110| 7b 0d 09 4f 53 45 72 72 | 09 09 65 72 72 20 3d 20 |{..OSErr|..err = |
|00001120| 6e 6f 45 72 72 3b 0d 09 | 6c 6f 6e 67 09 09 6e 75 |noErr;..|long..nu|
|00001130| 6d 50 61 67 65 73 2c 20 | 61 50 61 67 65 3b 0d 09 |mPages, |aPage;..|
|00001140| 6c 6f 6e 67 09 09 6e 65 | 77 53 69 7a 65 3b 0d 0d |long..ne|wSize;..|
|00001150| 2f 2f 20 50 69 6e 20 74 | 68 65 20 6e 75 6d 62 65 |// Pin t|he numbe|
|00001160| 72 20 6f 66 20 74 68 65 | 20 70 61 67 65 20 74 6f |r of the| page to|
|00001170| 20 61 64 64 20 74 6f 20 | 74 68 65 20 72 61 6e 67 | add to |the rang|
|00001180| 65 20 28 31 2c 20 6e 75 | 6d 50 61 67 65 73 20 2b |e (1, nu|mPages +|
|00001190| 31 29 2e 0d 0d 09 6e 75 | 6d 50 61 67 65 73 20 3d |1)....nu|mPages =|
|000011a0| 20 77 68 69 63 68 44 6f | 63 75 6d 65 6e 74 2d 3e | whichDo|cument->|
|000011b0| 6e 75 6d 50 61 67 65 73 | 3b 0d 09 2a 77 68 69 63 |numPages|;..*whic|
|000011c0| 68 50 61 67 65 20 3d 20 | 28 2a 77 68 69 63 68 50 |hPage = |(*whichP|
|000011d0| 61 67 65 20 3c 20 31 29 | 3f 20 31 3a 20 28 2a 77 |age < 1)|? 1: (*w|
|000011e0| 68 69 63 68 50 61 67 65 | 20 3c 20 6e 75 6d 50 61 |hichPage| < numPa|
|000011f0| 67 65 73 29 3f 20 2a 77 | 68 69 63 68 50 61 67 65 |ges)? *w|hichPage|
|00001200| 20 2b 31 3a 20 6e 75 6d | 50 61 67 65 73 20 2b 31 | +1: num|Pages +1|
|00001210| 3b 0d 0d 2f 2a 0d 09 44 | 6f 20 77 68 61 74 65 76 |;../*..D|o whatev|
|00001220| 65 72 20 79 6f 75 20 6e | 65 65 64 20 74 6f 20 64 |er you n|eed to d|
|00001230| 6f 20 74 6f 20 61 64 64 | 20 70 61 67 65 20 64 61 |o to add| page da|
|00001240| 74 61 20 68 65 72 65 2e | 0d 09 2e 0d 09 2e 0d 09 |ta here.|........|
|00001250| 2e 0d 09 0d 2a 2f 0d 0d | 09 6e 75 6d 50 61 67 65 |....*/..|.numPage|
|00001260| 73 20 3d 20 2b 2b 77 68 | 69 63 68 44 6f 63 75 6d |s = ++wh|ichDocum|
|00001270| 65 6e 74 2d 3e 6e 75 6d | 50 61 67 65 73 3b 0d 09 |ent->num|Pages;..|
|00001280| 72 65 74 75 72 6e 20 65 | 72 72 3b 0d 7d 0d 0d 0d |return e|rr;.}...|
|00001290| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|000012a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 20 20 |********|*****.  |
|000012d0| 4d 79 44 69 73 70 6f 73 | 65 50 61 67 65 20 2d 20 |MyDispos|ePage - |
|000012e0| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 69 73 20 |This rou|tine is |
|000012f0| 63 61 6c 6c 65 64 20 77 | 68 65 6e 20 77 65 20 6e |called w|hen we n|
|00001300| 65 65 64 20 74 6f 0d 20 | 20 64 69 73 70 6f 73 65 |eed to. | dispose|
|00001310| 20 6f 66 20 61 20 70 61 | 67 65 20 69 6e 20 61 20 | of a pa|ge in a |
|00001320| 64 6f 63 75 6d 65 6e 74 | 2e 0d 0d 2a 2a 2a 2a 2a |document|...*****|
|00001330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001360| 2a 2a 2a 2a 2a 2a 2a 2a | 2f 0d 0d 76 6f 69 64 20 |********|/..void |
|00001370| 4d 79 44 69 73 70 6f 73 | 65 50 61 67 65 28 4d 79 |MyDispos|ePage(My|
|00001380| 44 6f 63 75 6d 65 6e 74 | 50 74 72 20 77 68 69 63 |Document|Ptr whic|
|00001390| 68 44 6f 63 75 6d 65 6e | 74 2c 20 6c 6f 6e 67 20 |hDocumen|t, long |
|000013a0| 77 68 69 63 68 50 61 67 | 65 29 0d 7b 0d 09 6c 6f |whichPag|e).{..lo|
|000013b0| 6e 67 09 09 6e 75 6d 50 | 61 67 65 73 2c 20 70 61 |ng..numP|ages, pa|
|000013c0| 67 65 4e 75 6d 3b 0d 09 | 6c 6f 6e 67 09 09 6e 65 |geNum;..|long..ne|
|000013d0| 77 53 69 7a 65 3b 0d 0d | 2f 2f 20 49 64 69 6f 74 |wSize;..|// Idiot|
|000013e0| 20 63 6f 6e 74 72 6f 6c | 2e 0d 0d 09 69 66 20 28 | control|....if (|
|000013f0| 77 68 69 63 68 50 61 67 | 65 20 3e 20 77 68 69 63 |whichPag|e > whic|
|00001400| 68 44 6f 63 75 6d 65 6e | 74 2d 3e 6e 75 6d 50 61 |hDocumen|t->numPa|
|00001410| 67 65 73 29 20 72 65 74 | 75 72 6e 3b 09 2f 2f 20 |ges) ret|urn;.// |
|00001420| 3f 21 20 20 54 68 65 72 | 65 20 61 72 65 6e 27 74 |?!  Ther|e aren't|
|00001430| 20 74 68 61 74 20 6d 61 | 6e 79 20 70 61 67 65 73 | that ma|ny pages|
|00001440| 21 21 0d 09 69 66 20 28 | 77 68 69 63 68 50 61 67 |!!..if (|whichPag|
|00001450| 65 20 3c 20 31 29 20 72 | 65 74 75 72 6e 3b 09 09 |e < 1) r|eturn;..|
|00001460| 09 09 09 09 09 2f 2f 20 | 3f 21 20 20 50 61 67 65 |.....// |?!  Page|
|00001470| 20 6e 75 6d 62 65 72 73 | 20 73 74 61 72 74 20 61 | numbers| start a|
|00001480| 74 20 31 21 21 0d 0d 2f | 2a 0d 09 44 6f 20 77 68 |t 1!!../|*..Do wh|
|00001490| 61 74 65 76 65 72 20 79 | 6f 75 20 6e 65 65 64 20 |atever y|ou need |
|000014a0| 74 6f 20 64 6f 20 74 6f | 20 72 65 6d 6f 76 65 20 |to do to| remove |
|000014b0| 70 61 67 65 20 64 61 74 | 61 20 68 65 72 65 2e 0d |page dat|a here..|
|000014c0| 09 2e 0d 09 2e 0d 09 2e | 0d 09 0d 2a 2f 0d 0d 2f |........|...*/../|
|000014d0| 2f 20 57 65 20 6e 6f 77 | 20 68 61 76 65 20 6f 6e |/ We now| have on|
|000014e0| 65 20 6c 65 73 73 20 70 | 61 67 65 20 69 6e 20 6f |e less p|age in o|
|000014f0| 75 72 20 64 6f 63 75 6d | 65 6e 74 2e 0d 0d 09 6e |ur docum|ent....n|
|00001500| 75 6d 50 61 67 65 73 20 | 3d 20 2d 2d 77 68 69 63 |umPages |= --whic|
|00001510| 68 44 6f 63 75 6d 65 6e | 74 2d 3e 6e 75 6d 50 61 |hDocumen|t->numPa|
|00001520| 67 65 73 3b 0d 7d 0d 0d | 0d 2f 2a 2a 2a 2a 2a 2a |ges;.}..|./******|
|00001530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001540| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001560| 2a 2a 2a 2a 2a 2a 0d 20 | 20 4d 79 55 70 64 61 74 |******. | MyUpdat|
|00001570| 65 57 69 6e 64 6f 77 20 | 2d 20 54 68 69 73 20 72 |eWindow |- This r|
|00001580| 6f 75 74 69 6e 65 20 73 | 69 6d 70 6c 79 20 75 70 |outine s|imply up|
|00001590| 64 61 74 65 73 20 74 68 | 65 20 70 61 73 73 65 64 |dates th|e passed|
|000015a0| 0d 20 20 77 69 6e 64 6f | 77 2e 0d 0d 2a 2a 2a 2a |.  windo|w...****|
|000015b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 0d 76 6f 69 64 |********|*/..void|
|000015f0| 20 4d 79 55 70 64 61 74 | 65 57 69 6e 64 6f 77 28 | MyUpdat|eWindow(|
|00001600| 57 69 6e 64 6f 77 50 74 | 72 20 77 68 69 63 68 57 |WindowPt|r whichW|
|00001610| 69 6e 64 6f 77 29 0d 7b | 0d 09 47 72 61 66 50 74 |indow).{|..GrafPt|
|00001620| 72 09 09 6f 6c 64 50 6f | 72 74 3b 0d 0d 2f 2f 20 |r..oldPo|rt;..// |
|00001630| 55 70 64 61 74 65 20 74 | 68 65 20 69 6e 64 69 63 |Update t|he indic|
|00001640| 61 74 65 64 20 77 69 6e | 64 6f 77 2e 0d 0d 09 69 |ated win|dow....i|
|00001650| 66 20 28 28 28 57 69 6e | 64 6f 77 50 65 65 6b 29 |f (((Win|dowPeek)|
|00001660| 20 77 68 69 63 68 57 69 | 6e 64 6f 77 29 2d 3e 77 | whichWi|ndow)->w|
|00001670| 69 6e 64 6f 77 4b 69 6e | 64 20 3d 3d 20 75 73 65 |indowKin|d == use|
|00001680| 72 4b 69 6e 64 29 0d 09 | 7b 0d 09 09 47 65 74 50 |rKind)..|{...GetP|
|00001690| 6f 72 74 28 26 6f 6c 64 | 50 6f 72 74 29 3b 0d 09 |ort(&old|Port);..|
|000016a0| 09 53 65 74 50 6f 72 74 | 28 77 68 69 63 68 57 69 |.SetPort|(whichWi|
|000016b0| 6e 64 6f 77 29 3b 0d 09 | 09 42 65 67 69 6e 55 70 |ndow);..|.BeginUp|
|000016c0| 64 61 74 65 28 77 68 69 | 63 68 57 69 6e 64 6f 77 |date(whi|chWindow|
|000016d0| 29 3b 0d 09 09 4d 79 44 | 72 61 77 43 6f 6e 74 65 |);...MyD|rawConte|
|000016e0| 6e 74 73 28 77 68 69 63 | 68 57 69 6e 64 6f 77 29 |nts(whic|hWindow)|
|000016f0| 3b 0d 09 09 45 6e 64 55 | 70 64 61 74 65 28 77 68 |;...EndU|pdate(wh|
|00001700| 69 63 68 57 69 6e 64 6f | 77 29 3b 0d 09 09 53 65 |ichWindo|w);...Se|
|00001710| 74 50 6f 72 74 28 6f 6c | 64 50 6f 72 74 29 3b 0d |tPort(ol|dPort);.|
|00001720| 09 7d 0d 7d 0d 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |.}.}.../|********|
|00001730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001760| 2a 2a 2a 2a 0d 20 20 4d | 79 44 72 61 77 43 6f 6e |****.  M|yDrawCon|
|00001770| 74 65 6e 74 73 20 2d 20 | 54 68 69 73 20 72 6f 75 |tents - |This rou|
|00001780| 74 69 6e 65 20 64 72 61 | 77 73 20 74 68 65 20 63 |tine dra|ws the c|
|00001790| 6f 6e 74 65 6e 74 73 20 | 6f 66 20 61 0d 20 20 77 |ontents |of a.  w|
|000017a0| 69 6e 64 6f 77 2e 20 20 | 4e 6f 74 65 20 74 68 61 |indow.  |Note tha|
|000017b0| 74 20 74 68 69 73 20 73 | 61 6d 65 20 63 6f 64 65 |t this s|ame code|
|000017c0| 20 69 73 20 75 73 65 64 | 20 74 6f 20 64 72 61 77 | is used| to draw|
|000017d0| 20 64 75 72 69 6e 67 0d | 20 20 70 72 69 6e 74 69 | during.|  printi|
|000017e0| 6e 67 2e 20 20 41 6c 6c | 20 77 65 20 64 6f 20 69 |ng.  All| we do i|
|000017f0| 6e 20 74 68 69 73 20 63 | 6f 64 65 20 69 73 20 6d |n this c|ode is m|
|00001800| 61 6b 65 20 61 20 62 75 | 6e 63 68 20 6f 66 0d 20 |ake a bu|nch of. |
|00001810| 20 51 75 69 63 6b 44 72 | 61 77 20 63 61 6c 6c 73 | QuickDr|aw calls|
|00001820| 20 74 6f 20 64 72 61 77 | 20 6f 75 72 20 64 6f 63 | to draw| our doc|
|00001830| 75 6d 65 6e 74 27 73 20 | 70 61 67 65 73 2e 0d 0d |ument's |pages...|
|00001840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|00001880| 76 6f 69 64 20 4d 79 44 | 72 61 77 43 6f 6e 74 65 |void MyD|rawConte|
|00001890| 6e 74 73 28 57 69 6e 64 | 6f 77 50 74 72 20 77 68 |nts(Wind|owPtr wh|
|000018a0| 69 63 68 57 69 6e 64 6f | 77 29 0d 7b 0d 09 4d 79 |ichWindo|w).{..My|
|000018b0| 44 6f 63 75 6d 65 6e 74 | 50 74 72 09 77 69 6e 64 |Document|Ptr.wind|
|000018c0| 6f 77 44 6f 63 3b 0d 09 | 50 69 63 48 61 6e 64 6c |owDoc;..|PicHandl|
|000018d0| 65 09 09 64 72 61 77 50 | 69 63 74 3b 0d 09 52 65 |e..drawP|ict;..Re|
|000018e0| 63 74 09 09 09 64 72 61 | 77 52 65 63 74 2c 20 64 |ct...dra|wRect, d|
|000018f0| 72 61 77 52 65 63 74 32 | 3b 0d 09 73 68 6f 72 74 |rawRect2|;..short|
|00001900| 09 09 09 66 4e 75 6d 2c | 20 69 2c 20 6c 69 6e 65 |...fNum,| i, line|
|00001910| 49 6e 63 2c 20 68 43 65 | 6e 74 65 72 2c 20 70 69 |Inc, hCe|nter, pi|
|00001920| 63 57 69 64 74 68 2c 20 | 70 69 63 48 65 69 67 68 |cWidth, |picHeigh|
|00001930| 74 3b 0d 09 73 68 6f 72 | 74 09 09 09 6f 6c 64 52 |t;..shor|t...oldR|
|00001940| 65 73 46 69 6c 65 3b 0d | 09 46 6f 6e 74 49 6e 66 |esFile;.|.FontInf|
|00001950| 6f 09 09 66 49 6e 66 6f | 3b 0d 09 48 61 6e 64 6c |o..fInfo|;..Handl|
|00001960| 65 09 09 09 69 63 6f 6e | 48 64 6c 3b 0d 09 42 69 |e...icon|Hdl;..Bi|
|00001970| 74 4d 61 70 09 09 09 69 | 63 6f 6e 42 69 74 4d 61 |tMap...i|conBitMa|
|00001980| 70 3b 0d 09 53 74 72 32 | 35 35 09 09 09 70 53 74 |p;..Str2|55...pSt|
|00001990| 72 3b 0d 09 50 6f 69 6e | 74 09 09 09 77 68 65 72 |r;..Poin|t...wher|
|000019a0| 65 3b 0d 09 47 72 61 66 | 50 74 72 09 09 09 63 75 |e;..Graf|Ptr...cu|
|000019b0| 72 50 6f 72 74 3b 0d 0d | 2f 2f 09 50 72 65 73 65 |rPort;..|//.Prese|
|000019c0| 72 76 65 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |rve the |current |
|000019d0| 72 65 73 6f 75 72 63 65 | 20 66 69 6c 65 20 69 6e |resource| file in|
|000019e0| 20 63 61 73 65 20 77 65 | 27 72 65 20 70 72 69 6e | case we|'re prin|
|000019f0| 74 69 6e 67 2e 0d 0d 09 | 6f 6c 64 52 65 73 46 69 |ting....|oldResFi|
|00001a00| 6c 65 20 3d 20 43 75 72 | 52 65 73 46 69 6c 65 28 |le = Cur|ResFile(|
|00001a10| 29 3b 0d 09 77 69 6e 64 | 6f 77 44 6f 63 20 3d 20 |);..wind|owDoc = |
|00001a20| 4d 79 47 65 74 44 6f 63 | 50 74 72 28 77 68 69 63 |MyGetDoc|Ptr(whic|
|00001a30| 68 57 69 6e 64 6f 77 29 | 3b 0d 0d 2f 2f 20 44 72 |hWindow)|;..// Dr|
|00001a40| 61 77 20 61 20 72 65 64 | 20 51 75 69 63 6b 44 72 |aw a red| QuickDr|
|00001a50| 61 77 20 72 65 63 74 61 | 6e 67 6c 65 2e 0d 0d 09 |aw recta|ngle....|
|00001a60| 46 6f 72 65 43 6f 6c 6f | 72 28 72 65 64 43 6f 6c |ForeColo|r(redCol|
|00001a70| 6f 72 29 3b 0d 09 53 65 | 74 52 65 63 74 28 26 64 |or);..Se|tRect(&d|
|00001a80| 72 61 77 52 65 63 74 2c | 20 32 30 2c 20 32 30 2c |rawRect,| 20, 20,|
|00001a90| 20 31 35 30 2c 20 31 35 | 30 29 3b 0d 09 46 72 61 | 150, 15|0);..Fra|
|00001aa0| 6d 65 52 65 63 74 28 26 | 64 72 61 77 52 65 63 74 |meRect(&|drawRect|
|00001ab0| 29 3b 0d 0d 2f 2f 20 44 | 72 61 77 20 61 20 62 6c |);..// D|raw a bl|
|00001ac0| 75 65 20 51 75 69 63 6b | 44 72 61 77 20 6f 76 61 |ue Quick|Draw ova|
|00001ad0| 6c 2e 0d 0d 09 46 6f 72 | 65 43 6f 6c 6f 72 28 62 |l....For|eColor(b|
|00001ae0| 6c 75 65 43 6f 6c 6f 72 | 29 3b 0d 09 4f 66 66 73 |lueColor|);..Offs|
|00001af0| 65 74 52 65 63 74 28 26 | 64 72 61 77 52 65 63 74 |etRect(&|drawRect|
|00001b00| 2c 20 34 30 2c 20 34 30 | 29 3b 0d 09 46 72 61 6d |, 40, 40|);..Fram|
|00001b10| 65 4f 76 61 6c 28 26 64 | 72 61 77 52 65 63 74 29 |eOval(&d|rawRect)|
|00001b20| 3b 0d 0d 2f 2f 20 44 72 | 61 77 20 61 20 62 6c 61 |;..// Dr|aw a bla|
|00001b30| 63 6b 20 51 75 69 63 6b | 44 72 61 77 20 6c 69 6e |ck Quick|Draw lin|
|00001b40| 65 20 77 69 74 68 20 61 | 20 34 78 34 20 70 65 6e |e with a| 4x4 pen|
|00001b50| 2e 0d 0d 09 46 6f 72 65 | 43 6f 6c 6f 72 28 62 6c |....Fore|Color(bl|
|00001b60| 61 63 6b 43 6f 6c 6f 72 | 29 3b 0d 09 50 65 6e 53 |ackColor|);..PenS|
|00001b70| 69 7a 65 28 34 2c 20 34 | 29 3b 0d 09 4d 6f 76 65 |ize(4, 4|);..Move|
|00001b80| 54 6f 28 64 72 61 77 52 | 65 63 74 2e 6c 65 66 74 |To(drawR|ect.left|
|00001b90| 2c 20 64 72 61 77 52 65 | 63 74 2e 74 6f 70 29 3b |, drawRe|ct.top);|
|00001ba0| 0d 09 4c 69 6e 65 54 6f | 28 64 72 61 77 52 65 63 |..LineTo|(drawRec|
|00001bb0| 74 2e 72 69 67 68 74 2c | 20 64 72 61 77 52 65 63 |t.right,| drawRec|
|00001bc0| 74 2e 62 6f 74 74 6f 6d | 29 3b 0d 09 50 65 6e 53 |t.bottom|);..PenS|
|00001bd0| 69 7a 65 28 31 2c 20 31 | 29 3b 0d 0d 2f 2f 20 44 |ize(1, 1|);..// D|
|00001be0| 72 61 77 20 73 6f 6d 65 | 20 51 75 69 63 6b 44 72 |raw some| QuickDr|
|00001bf0| 61 77 20 74 65 78 74 20 | 77 69 74 68 20 76 61 72 |aw text |with var|
|00001c00| 69 6f 75 73 20 66 61 63 | 65 73 2e 0d 0d 09 47 65 |ious fac|es....Ge|
|00001c10| 74 46 4e 75 6d 28 22 5c | 70 4e 65 77 20 59 6f 72 |tFNum("\|pNew Yor|
|00001c20| 6b 22 2c 20 26 66 4e 75 | 6d 29 3b 0d 09 54 65 78 |k", &fNu|m);..Tex|
|00001c30| 74 46 6f 6e 74 28 66 4e | 75 6d 29 3b 0d 09 54 65 |tFont(fN|um);..Te|
|00001c40| 78 74 53 69 7a 65 28 31 | 30 29 3b 0d 09 47 65 74 |xtSize(1|0);..Get|
|00001c50| 46 6f 6e 74 49 6e 66 6f | 28 26 66 49 6e 66 6f 29 |FontInfo|(&fInfo)|
|00001c60| 3b 0d 09 6c 69 6e 65 49 | 6e 63 20 3d 20 66 49 6e |;..lineI|nc = fIn|
|00001c70| 66 6f 2e 61 73 63 65 6e | 74 20 2b 20 66 49 6e 66 |fo.ascen|t + fInf|
|00001c80| 6f 2e 6c 65 61 64 69 6e | 67 20 2b 20 66 49 6e 66 |o.leadin|g + fInf|
|00001c90| 6f 2e 64 65 73 63 65 6e | 74 3b 0d 09 54 65 78 74 |o.descen|t;..Text|
|00001ca0| 46 61 63 65 28 62 6f 6c | 64 29 3b 0d 09 4d 6f 76 |Face(bol|d);..Mov|
|00001cb0| 65 54 6f 28 32 32 30 2c | 20 34 30 29 3b 0d 09 44 |eTo(220,| 40);..D|
|00001cc0| 72 61 77 53 74 72 69 6e | 67 28 22 5c 70 46 6f 72 |rawStrin|g("\pFor|
|00001cd0| 20 53 61 6c 65 3a 20 22 | 29 3b 0d 09 54 65 78 74 | Sale: "|);..Text|
|00001ce0| 46 61 63 65 28 30 29 3b | 0d 09 44 72 61 77 53 74 |Face(0);|..DrawSt|
|00001cf0| 72 69 6e 67 28 22 5c 70 | 45 6e 67 6c 69 73 68 20 |ring("\p|English |
|00001d00| 73 68 65 65 70 64 6f 67 | 2e 20 20 22 29 3b 0d 09 |sheepdog|.  ");..|
|00001d10| 54 65 78 74 46 61 63 65 | 28 75 6e 64 65 72 6c 69 |TextFace|(underli|
|00001d20| 6e 65 29 3b 0d 09 44 72 | 61 77 53 74 72 69 6e 67 |ne);..Dr|awString|
|00001d30| 28 22 5c 70 43 6f 6d 70 | 6c 65 74 65 6c 79 22 29 |("\pComp|letely")|
|00001d40| 3b 0d 09 54 65 78 74 46 | 61 63 65 28 30 29 3b 0d |;..TextF|ace(0);.|
|00001d50| 09 4d 6f 76 65 54 6f 28 | 32 32 30 2c 20 34 30 20 |.MoveTo(|220, 40 |
|00001d60| 2b 20 6c 69 6e 65 49 6e | 63 29 3b 0d 09 44 72 61 |+ lineIn|c);..Dra|
|00001d70| 77 53 74 72 69 6e 67 28 | 22 5c 70 68 6f 75 73 65 |wString(|"\phouse|
|00001d80| 2d 62 72 6f 6b 65 6e 2c | 20 65 61 74 73 20 61 20 |-broken,| eats a |
|00001d90| 6c 6f 74 2c 20 22 29 3b | 0d 09 54 65 78 74 46 61 |lot, ");|..TextFa|
|00001da0| 63 65 28 69 74 61 6c 69 | 63 29 3b 0d 09 44 72 61 |ce(itali|c);..Dra|
|00001db0| 77 53 74 72 69 6e 67 28 | 22 5c 70 6c 6f 76 65 73 |wString(|"\ploves|
|00001dc0| 20 63 61 74 73 20 61 6e | 64 22 29 3b 0d 09 4d 6f | cats an|d");..Mo|
|00001dd0| 76 65 54 6f 28 32 32 30 | 2c 20 34 30 20 2b 20 32 |veTo(220|, 40 + 2|
|00001de0| 2a 20 6c 69 6e 65 49 6e | 63 29 3b 0d 09 44 72 61 |* lineIn|c);..Dra|
|00001df0| 77 53 74 72 69 6e 67 28 | 22 5c 70 73 6d 61 6c 6c |wString(|"\psmall|
|00001e00| 20 63 68 69 6c 64 72 65 | 6e 2e 22 29 3b 0d 09 54 | childre|n.");..T|
|00001e10| 65 78 74 46 61 63 65 28 | 30 29 3b 0d 09 44 72 61 |extFace(|0);..Dra|
|00001e20| 77 53 74 72 69 6e 67 28 | 22 5c 70 20 20 46 72 65 |wString(|"\p  Fre|
|00001e30| 65 20 74 6f 20 61 20 67 | 6f 6f 64 20 68 6f 6d 65 |e to a g|ood home|
|00001e40| 2e 22 29 3b 0d 09 4d 6f | 76 65 54 6f 28 32 32 30 |.");..Mo|veTo(220|
|00001e50| 2c 20 34 30 20 2b 20 33 | 2a 20 6c 69 6e 65 49 6e |, 40 + 3|* lineIn|
|00001e60| 63 29 3b 0d 0d 2f 2f 20 | 44 72 61 77 20 74 77 6f |c);..// |Draw two|
|00001e70| 20 63 6f 6e 63 65 6e 74 | 72 69 63 20 51 75 69 63 | concent|ric Quic|
|00001e80| 6b 44 72 61 77 20 72 65 | 63 74 61 6e 67 6c 65 73 |kDraw re|ctangles|
|00001e90| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 74 65 78 74 | around |the text|
|00001ea0| 20 77 65 20 6a 75 73 74 | 20 64 72 65 77 2e 0d 0d | we just| drew...|
|00001eb0| 09 47 65 74 50 65 6e 28 | 26 77 68 65 72 65 29 3b |.GetPen(|&where);|
|00001ec0| 0d 09 64 72 61 77 52 65 | 63 74 2e 6c 65 66 74 20 |..drawRe|ct.left |
|00001ed0| 3d 20 32 31 36 3b 0d 09 | 64 72 61 77 52 65 63 74 |= 216;..|drawRect|
|00001ee0| 2e 74 6f 70 20 3d 20 33 | 30 3b 0d 09 64 72 61 77 |.top = 3|0;..draw|
|00001ef0| 52 65 63 74 2e 72 69 67 | 68 74 20 3d 20 34 35 30 |Rect.rig|ht = 450|
|00001f00| 3b 0d 09 64 72 61 77 52 | 65 63 74 2e 62 6f 74 74 |;..drawR|ect.bott|
|00001f10| 6f 6d 20 3d 20 77 68 65 | 72 65 2e 76 20 2d 20 6c |om = whe|re.v - l|
|00001f20| 69 6e 65 49 6e 63 2f 32 | 3b 0d 09 46 72 61 6d 65 |ineInc/2|;..Frame|
|00001f30| 52 65 63 74 28 26 64 72 | 61 77 52 65 63 74 29 3b |Rect(&dr|awRect);|
|00001f40| 0d 09 49 6e 73 65 74 52 | 65 63 74 28 26 64 72 61 |..InsetR|ect(&dra|
|00001f50| 77 52 65 63 74 2c 20 2d | 32 2c 20 2d 32 29 3b 0d |wRect, -|2, -2);.|
|00001f60| 09 46 72 61 6d 65 52 65 | 63 74 28 26 64 72 61 77 |.FrameRe|ct(&draw|
|00001f70| 52 65 63 74 29 3b 0d 0d | 2f 2a 0d 09 43 61 6c 63 |Rect);..|/*..Calc|
|00001f80| 75 6c 61 74 65 20 74 68 | 65 20 63 65 6e 74 65 72 |ulate th|e center|
|00001f90| 20 6f 66 20 6f 75 72 20 | 77 69 6e 64 6f 77 2c 20 | of our |window, |
|00001fa0| 61 6e 64 20 74 68 65 6e | 20 64 72 61 77 20 61 0d |and then| draw a.|
|00001fb0| 09 51 75 69 63 6b 44 72 | 61 77 20 70 69 63 74 75 |.QuickDr|aw pictu|
|00001fc0| 72 65 20 61 74 20 74 68 | 61 74 20 6c 6f 63 61 74 |re at th|at locat|
|00001fd0| 69 6f 6e 2e 0d 2a 2f 0d | 0d 09 68 43 65 6e 74 65 |ion..*/.|..hCente|
|00001fe0| 72 20 3d 20 28 77 68 69 | 63 68 57 69 6e 64 6f 77 |r = (whi|chWindow|
|00001ff0| 2d 3e 70 6f 72 74 52 65 | 63 74 2e 72 69 67 68 74 |->portRe|ct.right|
|00002000| 20 2b 20 77 68 69 63 68 | 57 69 6e 64 6f 77 2d 3e | + which|Window->|
|00002010| 70 6f 72 74 52 65 63 74 | 2e 6c 65 66 74 29 20 3e |portRect|.left) >|
|00002020| 3e 31 3b 0d 0d 09 55 73 | 65 52 65 73 46 69 6c 65 |>1;...Us|eResFile|
|00002030| 28 67 41 70 70 52 65 73 | 52 65 66 4e 75 6d 29 3b |(gAppRes|RefNum);|
|00002040| 0d 09 64 72 61 77 50 69 | 63 74 20 3d 20 47 65 74 |..drawPi|ct = Get|
|00002050| 50 69 63 74 75 72 65 28 | 72 5f 64 6f 63 75 6d 65 |Picture(|r_docume|
|00002060| 6e 74 50 69 63 74 29 3b | 0d 09 55 73 65 52 65 73 |ntPict);|..UseRes|
|00002070| 46 69 6c 65 28 6f 6c 64 | 52 65 73 46 69 6c 65 29 |File(old|ResFile)|
|00002080| 3b 0d 0d 09 69 66 20 28 | 64 72 61 77 50 69 63 74 |;...if (|drawPict|
|00002090| 20 21 3d 20 6e 69 6c 29 | 20 0d 09 7b 0d 09 09 70 | != nil)| ..{...p|
|000020a0| 69 63 57 69 64 74 68 20 | 3d 20 28 2a 64 72 61 77 |icWidth |= (*draw|
|000020b0| 50 69 63 74 29 2d 3e 70 | 69 63 46 72 61 6d 65 2e |Pict)->p|icFrame.|
|000020c0| 72 69 67 68 74 20 2d 20 | 28 2a 64 72 61 77 50 69 |right - |(*drawPi|
|000020d0| 63 74 29 2d 3e 70 69 63 | 46 72 61 6d 65 2e 6c 65 |ct)->pic|Frame.le|
|000020e0| 66 74 3b 0d 09 09 70 69 | 63 48 65 69 67 68 74 20 |ft;...pi|cHeight |
|000020f0| 3d 20 28 2a 64 72 61 77 | 50 69 63 74 29 2d 3e 70 |= (*draw|Pict)->p|
|00002100| 69 63 46 72 61 6d 65 2e | 62 6f 74 74 6f 6d 20 2d |icFrame.|bottom -|
|00002110| 20 28 2a 64 72 61 77 50 | 69 63 74 29 2d 3e 70 69 | (*drawP|ict)->pi|
|00002120| 63 46 72 61 6d 65 2e 74 | 6f 70 3b 0d 09 09 0d 09 |cFrame.t|op;.....|
|00002130| 09 64 72 61 77 52 65 63 | 74 2e 74 6f 70 20 3d 20 |.drawRec|t.top = |
|00002140| 32 34 30 3b 0d 09 09 64 | 72 61 77 52 65 63 74 2e |240;...d|rawRect.|
|00002150| 6c 65 66 74 20 3d 20 68 | 43 65 6e 74 65 72 20 2d |left = h|Center -|
|00002160| 28 70 69 63 57 69 64 74 | 68 20 3e 3e 31 29 3b 0d |(picWidt|h >>1);.|
|00002170| 09 09 64 72 61 77 52 65 | 63 74 2e 62 6f 74 74 6f |..drawRe|ct.botto|
|00002180| 6d 20 3d 20 64 72 61 77 | 52 65 63 74 2e 74 6f 70 |m = draw|Rect.top|
|00002190| 20 2b 20 70 69 63 48 65 | 69 67 68 74 3b 0d 09 09 | + picHe|ight;...|
|000021a0| 64 72 61 77 52 65 63 74 | 2e 72 69 67 68 74 20 3d |drawRect|.right =|
|000021b0| 20 64 72 61 77 52 65 63 | 74 2e 6c 65 66 74 20 2b | drawRec|t.left +|
|000021c0| 20 70 69 63 57 69 64 74 | 68 3b 0d 09 09 20 0d 09 | picWidt|h;... ..|
|000021d0| 09 44 72 61 77 50 69 63 | 74 75 72 65 28 64 72 61 |.DrawPic|ture(dra|
|000021e0| 77 50 69 63 74 2c 20 26 | 64 72 61 77 52 65 63 74 |wPict, &|drawRect|
|000021f0| 29 3b 0d 09 09 52 65 6c | 65 61 73 65 52 65 73 6f |);...Rel|easeReso|
|00002200| 75 72 63 65 28 28 48 61 | 6e 64 6c 65 29 20 64 72 |urce((Ha|ndle) dr|
|00002210| 61 77 50 69 63 74 29 3b | 0d 09 7d 0d 0d 2f 2a 0d |awPict);|..}../*.|
|00002220| 09 4c 6f 61 64 20 61 20 | 51 75 69 63 6b 44 72 61 |.Load a |QuickDra|
|00002230| 77 20 69 63 6f 6e 2c 20 | 61 6e 64 20 43 6f 70 79 |w icon, |and Copy|
|00002240| 42 69 74 73 20 61 20 62 | 75 6e 63 68 20 6f 66 20 |Bits a b|unch of |
|00002250| 74 68 65 6d 20 61 63 72 | 6f 73 73 0d 09 74 68 65 |them acr|oss..the|
|00002260| 20 70 61 67 65 2c 20 69 | 6e 20 76 61 72 69 6f 75 | page, i|n variou|
|00002270| 73 20 63 6f 6c 6f 72 73 | 2e 0d 2a 2f 0d 0d 09 55 |s colors|..*/...U|
|00002280| 73 65 52 65 73 46 69 6c | 65 28 67 41 70 70 52 65 |seResFil|e(gAppRe|
|00002290| 73 52 65 66 4e 75 6d 29 | 3b 0d 09 69 63 6f 6e 48 |sRefNum)|;..iconH|
|000022a0| 64 6c 20 3d 20 28 48 61 | 6e 64 6c 65 29 20 47 65 |dl = (Ha|ndle) Ge|
|000022b0| 74 49 63 6f 6e 28 72 5f | 64 6f 63 75 6d 65 6e 74 |tIcon(r_|document|
|000022c0| 42 69 74 6d 61 70 29 3b | 0d 09 55 73 65 52 65 73 |Bitmap);|..UseRes|
|000022d0| 46 69 6c 65 28 6f 6c 64 | 52 65 73 46 69 6c 65 29 |File(old|ResFile)|
|000022e0| 3b 0d 0d 09 69 66 20 28 | 69 63 6f 6e 48 64 6c 20 |;...if (|iconHdl |
|000022f0| 21 3d 20 6e 69 6c 29 0d | 09 7b 0d 09 09 4d 6f 76 |!= nil).|.{...Mov|
|00002300| 65 48 48 69 28 28 48 61 | 6e 64 6c 65 29 20 69 63 |eHHi((Ha|ndle) ic|
|00002310| 6f 6e 48 64 6c 29 3b 0d | 09 09 48 4c 6f 63 6b 28 |onHdl);.|..HLock(|
|00002320| 28 48 61 6e 64 6c 65 29 | 20 69 63 6f 6e 48 64 6c |(Handle)| iconHdl|
|00002330| 29 3b 0d 09 09 69 63 6f | 6e 42 69 74 4d 61 70 2e |);...ico|nBitMap.|
|00002340| 72 6f 77 42 79 74 65 73 | 20 3d 20 34 3b 0d 09 09 |rowBytes| = 4;...|
|00002350| 53 65 74 52 65 63 74 28 | 26 69 63 6f 6e 42 69 74 |SetRect(|&iconBit|
|00002360| 4d 61 70 2e 62 6f 75 6e | 64 73 2c 20 30 2c 20 30 |Map.boun|ds, 0, 0|
|00002370| 2c 20 33 31 2c 20 33 31 | 29 3b 0d 09 09 69 63 6f |, 31, 31|);...ico|
|00002380| 6e 42 69 74 4d 61 70 2e | 62 61 73 65 41 64 64 72 |nBitMap.|baseAddr|
|00002390| 20 3d 20 2a 69 63 6f 6e | 48 64 6c 3b 0d 09 09 0d | = *icon|Hdl;....|
|000023a0| 09 09 64 72 61 77 52 65 | 63 74 2e 74 6f 70 20 3d |..drawRe|ct.top =|
|000023b0| 20 64 72 61 77 52 65 63 | 74 2e 62 6f 74 74 6f 6d | drawRec|t.bottom|
|000023c0| 20 2b 32 30 3b 0d 09 09 | 64 72 61 77 52 65 63 74 | +20;...|drawRect|
|000023d0| 2e 6c 65 66 74 20 3d 20 | 31 30 3b 0d 09 09 64 72 |.left = |10;...dr|
|000023e0| 61 77 52 65 63 74 2e 62 | 6f 74 74 6f 6d 20 3d 20 |awRect.b|ottom = |
|000023f0| 64 72 61 77 52 65 63 74 | 2e 74 6f 70 20 2b 33 31 |drawRect|.top +31|
|00002400| 3b 0d 09 09 64 72 61 77 | 52 65 63 74 2e 72 69 67 |;...draw|Rect.rig|
|00002410| 68 74 20 3d 20 64 72 61 | 77 52 65 63 74 2e 6c 65 |ht = dra|wRect.le|
|00002420| 66 74 20 2b 33 31 3b 0d | 09 09 0d 09 09 66 6f 72 |ft +31;.|.....for|
|00002430| 20 28 69 20 3d 20 30 3b | 20 69 20 3c 20 31 32 3b | (i = 0;| i < 12;|
|00002440| 20 69 2b 2b 29 0d 09 09 | 7b 0d 09 09 09 73 77 69 | i++)...|{....swi|
|00002450| 74 63 68 20 28 69 20 25 | 20 36 29 0d 09 09 09 7b |tch (i %| 6)....{|
|00002460| 0d 09 09 09 09 63 61 73 | 65 20 30 3a 0d 09 09 09 |.....cas|e 0:....|
|00002470| 09 09 46 6f 72 65 43 6f | 6c 6f 72 28 62 6c 61 63 |..ForeCo|lor(blac|
|00002480| 6b 43 6f 6c 6f 72 29 3b | 0d 09 09 09 09 09 62 72 |kColor);|......br|
|00002490| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 31 3a |eak;....|.case 1:|
|000024a0| 0d 09 09 09 09 09 46 6f | 72 65 43 6f 6c 6f 72 28 |......Fo|reColor(|
|000024b0| 62 6c 75 65 43 6f 6c 6f | 72 29 3b 0d 09 09 09 09 |blueColo|r);.....|
|000024c0| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 63 61 73 65 |.break;.|....case|
|000024d0| 20 32 3a 0d 09 09 09 09 | 09 46 6f 72 65 43 6f 6c | 2:.....|.ForeCol|
|000024e0| 6f 72 28 67 72 65 65 6e | 43 6f 6c 6f 72 29 3b 0d |or(green|Color);.|
|000024f0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00002500| 63 61 73 65 20 33 3a 0d | 09 09 09 09 09 46 6f 72 |case 3:.|.....For|
|00002510| 65 43 6f 6c 6f 72 28 72 | 65 64 43 6f 6c 6f 72 29 |eColor(r|edColor)|
|00002520| 3b 0d 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |;......b|reak;...|
|00002530| 09 09 63 61 73 65 20 34 | 3a 0d 09 09 09 09 09 46 |..case 4|:......F|
|00002540| 6f 72 65 43 6f 6c 6f 72 | 28 63 79 61 6e 43 6f 6c |oreColor|(cyanCol|
|00002550| 6f 72 29 3b 0d 09 09 09 | 09 09 62 72 65 61 6b 3b |or);....|..break;|
|00002560| 0d 09 09 09 09 63 61 73 | 65 20 35 3a 0d 09 09 09 |.....cas|e 5:....|
|00002570| 09 09 46 6f 72 65 43 6f | 6c 6f 72 28 6d 61 67 65 |..ForeCo|lor(mage|
|00002580| 6e 74 61 43 6f 6c 6f 72 | 29 3b 0d 09 09 09 09 09 |ntaColor|);......|
|00002590| 62 72 65 61 6b 3b 0d 09 | 09 09 7d 0d 09 09 09 0d |break;..|..}.....|
|000025a0| 09 09 09 47 65 74 50 6f | 72 74 28 26 63 75 72 50 |...GetPo|rt(&curP|
|000025b0| 6f 72 74 29 3b 0d 09 09 | 09 43 6f 70 79 42 69 74 |ort);...|.CopyBit|
|000025c0| 73 28 26 69 63 6f 6e 42 | 69 74 4d 61 70 2c 20 26 |s(&iconB|itMap, &|
|000025d0| 63 75 72 50 6f 72 74 2d | 3e 70 6f 72 74 42 69 74 |curPort-|>portBit|
|000025e0| 73 2c 20 26 69 63 6f 6e | 42 69 74 4d 61 70 2e 62 |s, &icon|BitMap.b|
|000025f0| 6f 75 6e 64 73 2c 20 26 | 64 72 61 77 52 65 63 74 |ounds, &|drawRect|
|00002600| 2c 20 73 72 63 43 6f 70 | 79 2c 20 6e 69 6c 29 3b |, srcCop|y, nil);|
|00002610| 0d 09 0d 09 09 09 64 72 | 61 77 52 65 63 74 2e 6c |......dr|awRect.l|
|00002620| 65 66 74 20 20 2b 3d 20 | 34 30 3b 0d 09 09 09 64 |eft  += |40;....d|
|00002630| 72 61 77 52 65 63 74 2e | 72 69 67 68 74 20 2b 3d |rawRect.|right +=|
|00002640| 20 34 30 3b 0d 09 09 7d | 0d 09 09 0d 09 09 52 65 | 40;...}|......Re|
|00002650| 6c 65 61 73 65 52 65 73 | 6f 75 72 63 65 28 69 63 |leaseRes|ource(ic|
|00002660| 6f 6e 48 64 6c 29 3b 0d | 09 7d 0d 0d 2f 2f 20 44 |onHdl);.|.}..// D|
|00002670| 72 61 77 20 73 6f 6d 65 | 20 6d 6f 72 65 20 51 75 |raw some| more Qu|
|00002680| 69 63 6b 44 72 61 77 20 | 74 65 78 74 2e 20 20 54 |ickDraw |text.  T|
|00002690| 68 69 73 20 74 69 6d 65 | 2c 20 62 6c 75 65 20 61 |his time|, blue a|
|000026a0| 6e 64 20 32 34 20 70 6f | 69 6e 74 2e 0d 0d 09 47 |nd 24 po|int....G|
|000026b0| 65 74 46 4e 75 6d 28 22 | 5c 70 54 69 6d 65 73 22 |etFNum("|\pTimes"|
|000026c0| 2c 20 26 66 4e 75 6d 29 | 3b 0d 09 54 65 78 74 46 |, &fNum)|;..TextF|
|000026d0| 6f 6e 74 28 66 4e 75 6d | 29 3b 0d 09 54 65 78 74 |ont(fNum|);..Text|
|000026e0| 53 69 7a 65 28 32 34 29 | 3b 0d 09 46 6f 72 65 43 |Size(24)|;..ForeC|
|000026f0| 6f 6c 6f 72 28 62 6c 75 | 65 43 6f 6c 6f 72 29 3b |olor(blu|eColor);|
|00002700| 0d 09 2f 2f 20 72 65 6d | 6f 76 65 20 73 70 72 69 |..// rem|ove spri|
|00002710| 6e 74 66 20 63 61 6c 6c | 2c 20 72 65 6d 6f 76 65 |ntf call|, remove|
|00002720| 73 20 74 68 65 20 6e 65 | 65 64 20 74 6f 20 6c 69 |s the ne|ed to li|
|00002730| 6e 6b 20 77 69 74 68 20 | 74 68 65 20 6d 65 74 72 |nk with |the metr|
|00002740| 6f 77 65 72 6b 73 20 61 | 6e 73 69 20 6c 69 62 72 |owerks a|nsi libr|
|00002750| 61 72 79 0d 09 2f 2f 20 | 77 61 73 3a 20 70 53 74 |ary..// |was: pSt|
|00002760| 72 5b 30 5d 20 3d 20 73 | 70 72 69 6e 74 66 28 28 |r[0] = s|printf((|
|00002770| 63 68 61 72 20 2a 29 20 | 26 70 53 74 72 5b 31 5d |char *) |&pStr[1]|
|00002780| 2c 20 22 54 68 65 73 65 | 20 61 72 65 20 73 6f 6d |, "These| are som|
|00002790| 65 20 74 79 70 69 63 61 | 6c 20 51 75 69 63 6b 44 |e typica|l QuickD|
|000027a0| 72 61 77 20 6f 62 6a 65 | 63 74 73 22 29 3b 0d 09 |raw obje|cts");..|
|000027b0| 0d 09 7b 20 0d 09 09 75 | 6e 73 69 67 6e 65 64 20 |..{ ...u|nsigned |
|000027c0| 63 68 61 72 20 2a 74 65 | 6d 70 53 74 72 20 3d 20 |char *te|mpStr = |
|000027d0| 22 5c 70 54 68 65 73 65 | 20 61 72 65 20 73 6f 6d |"\pThese| are som|
|000027e0| 65 20 74 79 70 69 63 61 | 6c 20 51 75 69 63 6b 44 |e typica|l QuickD|
|000027f0| 72 61 77 20 6f 62 6a 65 | 63 74 73 22 20 3b 09 2f |raw obje|cts" ;./|
|00002800| 2f 20 73 68 6f 75 6c 64 | 20 63 6f 6d 65 20 66 72 |/ should| come fr|
|00002810| 6f 6d 20 61 20 72 65 73 | 6f 75 72 63 65 0d 09 09 |om a res|ource...|
|00002820| 42 6c 6f 63 6b 4d 6f 76 | 65 28 20 26 74 65 6d 70 |BlockMov|e( &temp|
|00002830| 53 74 72 5b 31 5d 2c 20 | 26 70 53 74 72 5b 31 5d |Str[1], |&pStr[1]|
|00002840| 2c 20 74 65 6d 70 53 74 | 72 5b 30 5d 20 29 20 3b |, tempSt|r[0] ) ;|
|00002850| 0d 09 09 70 53 74 72 5b | 30 5d 20 3d 20 74 65 6d |...pStr[|0] = tem|
|00002860| 70 53 74 72 5b 30 5d 20 | 3b 0d 09 09 0d 0d 09 7d |pStr[0] |;......}|
|00002870| 0d 0d 09 4d 6f 76 65 54 | 6f 28 68 43 65 6e 74 65 |...MoveT|o(hCente|
|00002880| 72 20 2d 28 53 74 72 69 | 6e 67 57 69 64 74 68 28 |r -(Stri|ngWidth(|
|00002890| 70 53 74 72 29 20 3e 3e | 31 29 2c 20 64 72 61 77 |pStr) >>|1), draw|
|000028a0| 52 65 63 74 2e 62 6f 74 | 74 6f 6d 20 2b 32 30 29 |Rect.bot|tom +20)|
|000028b0| 3b 0d 09 44 72 61 77 53 | 74 72 69 6e 67 28 70 53 |;..DrawS|tring(pS|
|000028c0| 74 72 29 3b 0d 0d 2f 2f | 20 44 72 61 77 20 73 6f |tr);..//| Draw so|
|000028d0| 6d 65 20 51 75 69 63 6b | 44 72 61 77 20 50 69 63 |me Quick|Draw Pic|
|000028e0| 43 6f 6d 6d 65 6e 74 73 | 2e 0d 0d 09 4d 79 44 72 |Comments|....MyDr|
|000028f0| 61 77 50 69 63 43 6f 6d | 6d 65 6e 74 73 28 29 3b |awPicCom|ments();|
|00002900| 0d 0d 2f 2a 0d 09 44 72 | 61 77 20 73 6f 6d 65 20 |../*..Dr|aw some |
|00002910| 6d 6f 72 65 20 62 6c 61 | 63 6b 20 51 75 69 63 6b |more bla|ck Quick|
|00002920| 44 72 61 77 20 74 65 78 | 74 20 69 6e 20 61 20 64 |Draw tex|t in a d|
|00002930| 69 66 66 65 72 65 6e 74 | 20 66 6f 6e 74 0d 09 61 |ifferent| font..a|
|00002940| 6e 64 20 73 69 7a 65 2c | 20 69 6e 64 69 63 61 74 |nd size,| indicat|
|00002950| 69 6e 67 20 74 68 65 20 | 70 61 67 65 20 6e 75 6d |ing the |page num|
|00002960| 62 65 72 2e 0d 2a 2f 0d | 09 47 65 74 46 4e 75 6d |ber..*/.|.GetFNum|
|00002970| 28 22 5c 70 47 65 6e 65 | 76 61 22 2c 20 26 66 4e |("\pGene|va", &fN|
|00002980| 75 6d 29 3b 0d 09 54 65 | 78 74 46 6f 6e 74 28 66 |um);..Te|xtFont(f|
|00002990| 4e 75 6d 29 3b 0d 09 54 | 65 78 74 53 69 7a 65 28 |Num);..T|extSize(|
|000029a0| 31 32 29 3b 0d 09 0d 09 | 46 6f 72 65 43 6f 6c 6f |12);....|ForeColo|
|000029b0| 72 28 62 6c 61 63 6b 43 | 6f 6c 6f 72 29 3b 0d 09 |r(blackC|olor);..|
|000029c0| 2f 2f 20 72 65 6d 6f 76 | 65 20 73 70 72 69 6e 74 |// remov|e sprint|
|000029d0| 66 20 63 61 6c 6c 2c 20 | 72 65 6d 6f 76 65 73 20 |f call, |removes |
|000029e0| 74 68 65 20 6e 65 65 64 | 20 74 6f 20 6c 69 6e 6b |the need| to link|
|000029f0| 20 77 69 74 68 20 74 68 | 65 20 6d 65 74 72 6f 77 | with th|e metrow|
|00002a00| 65 72 6b 73 20 61 6e 73 | 69 20 6c 69 62 72 61 72 |erks ans|i librar|
|00002a10| 79 0d 09 2f 2f 20 77 61 | 73 3a 20 70 53 74 72 5b |y..// wa|s: pStr[|
|00002a20| 30 5d 20 3d 20 73 70 72 | 69 6e 74 66 28 28 63 68 |0] = spr|intf((ch|
|00002a30| 61 72 20 2a 29 20 26 70 | 53 74 72 5b 31 5d 2c 20 |ar *) &p|Str[1], |
|00002a40| 22 54 68 69 73 20 69 73 | 20 70 61 67 65 20 25 6c |"This is| page %l|
|00002a50| 64 20 6f 66 20 25 6c 64 | 2e 22 2c 0d 09 2f 2f 09 |d of %ld|.",..//.|
|00002a60| 09 09 09 20 20 77 69 6e | 64 6f 77 44 6f 63 2d 3e |...  win|dowDoc->|
|00002a70| 63 75 72 50 61 67 65 2c | 20 77 69 6e 64 6f 77 44 |curPage,| windowD|
|00002a80| 6f 63 2d 3e 6e 75 6d 50 | 61 67 65 73 29 3b 0d 0d |oc->numP|ages);..|
|00002a90| 09 7b 0d 09 09 75 6e 73 | 69 67 6e 65 64 20 63 68 |.{...uns|igned ch|
|00002aa0| 61 72 20 09 2a 73 74 72 | 50 61 72 74 31 20 3d 20 |ar .*str|Part1 = |
|00002ab0| 22 5c 70 54 68 69 73 20 | 69 73 20 70 61 67 65 20 |"\pThis |is page |
|00002ac0| 22 20 3b 09 2f 2f 20 73 | 68 6f 75 6c 64 20 63 6f |" ;.// s|hould co|
|00002ad0| 6d 65 20 66 72 6f 6d 20 | 61 20 72 65 73 6f 75 72 |me from |a resour|
|00002ae0| 63 65 0d 09 09 75 6e 73 | 69 67 6e 65 64 20 63 68 |ce...uns|igned ch|
|00002af0| 61 72 20 09 2a 73 74 72 | 50 61 72 74 32 20 3d 20 |ar .*str|Part2 = |
|00002b00| 22 5c 70 20 6f 66 20 22 | 20 3b 09 09 09 2f 2f 20 |"\p of "| ;...// |
|00002b10| 73 68 6f 75 6c 64 20 63 | 6f 6d 65 20 66 72 6f 6d |should c|ome from|
|00002b20| 20 61 20 72 65 73 6f 75 | 72 63 65 0d 09 09 75 6e | a resou|rce...un|
|00002b30| 73 69 67 6e 65 64 20 63 | 68 61 72 09 63 75 72 72 |signed c|har.curr|
|00002b40| 65 6e 74 50 61 67 65 5b | 33 32 5d 20 3b 0d 09 09 |entPage[|32] ;...|
|00002b50| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 09 6e 75 |unsigned| char.nu|
|00002b60| 6d 62 65 72 4f 66 50 61 | 67 65 73 5b 33 32 5d 20 |mberOfPa|ges[32] |
|00002b70| 3b 0d 09 09 73 68 6f 72 | 74 09 74 68 65 4c 65 6e |;...shor|t.theLen|
|00002b80| 67 74 68 20 3d 20 30 20 | 3b 0d 09 09 0d 09 09 4e |gth = 0 |;......N|
|00002b90| 75 6d 54 6f 53 74 72 69 | 6e 67 28 20 77 69 6e 64 |umToStri|ng( wind|
|00002ba0| 6f 77 44 6f 63 2d 3e 63 | 75 72 50 61 67 65 2c 20 |owDoc->c|urPage, |
|00002bb0| 63 75 72 72 65 6e 74 50 | 61 67 65 20 29 20 3b 0d |currentP|age ) ;.|
|00002bc0| 09 09 4e 75 6d 54 6f 53 | 74 72 69 6e 67 28 20 77 |..NumToS|tring( w|
|00002bd0| 69 6e 64 6f 77 44 6f 63 | 2d 3e 6e 75 6d 50 61 67 |indowDoc|->numPag|
|00002be0| 65 73 2c 20 6e 75 6d 62 | 65 72 4f 66 50 61 67 65 |es, numb|erOfPage|
|00002bf0| 73 20 29 20 3b 0d 0d 09 | 09 42 6c 6f 63 6b 4d 6f |s ) ;...|.BlockMo|
|00002c00| 76 65 28 20 26 73 74 72 | 50 61 72 74 31 5b 31 5d |ve( &str|Part1[1]|
|00002c10| 2c 20 26 70 53 74 72 5b | 74 68 65 4c 65 6e 67 74 |, &pStr[|theLengt|
|00002c20| 68 20 2b 20 31 5d 2c 20 | 73 74 72 50 61 72 74 31 |h + 1], |strPart1|
|00002c30| 5b 30 5d 20 29 20 3b 0d | 09 09 74 68 65 4c 65 6e |[0] ) ;.|..theLen|
|00002c40| 67 74 68 20 2b 3d 20 73 | 74 72 50 61 72 74 31 5b |gth += s|trPart1[|
|00002c50| 30 5d 20 3b 0d 09 09 0d | 09 09 42 6c 6f 63 6b 4d |0] ;....|..BlockM|
|00002c60| 6f 76 65 28 20 26 63 75 | 72 72 65 6e 74 50 61 67 |ove( &cu|rrentPag|
|00002c70| 65 5b 31 5d 2c 20 26 70 | 53 74 72 5b 74 68 65 4c |e[1], &p|Str[theL|
|00002c80| 65 6e 67 74 68 20 2b 20 | 31 5d 2c 20 63 75 72 72 |ength + |1], curr|
|00002c90| 65 6e 74 50 61 67 65 5b | 30 5d 20 29 20 3b 0d 09 |entPage[|0] ) ;..|
|00002ca0| 09 74 68 65 4c 65 6e 67 | 74 68 20 2b 3d 20 63 75 |.theLeng|th += cu|
|00002cb0| 72 72 65 6e 74 50 61 67 | 65 5b 30 5d 20 3b 0d 09 |rrentPag|e[0] ;..|
|00002cc0| 09 0d 09 09 42 6c 6f 63 | 6b 4d 6f 76 65 28 20 26 |....Bloc|kMove( &|
|00002cd0| 73 74 72 50 61 72 74 32 | 5b 31 5d 2c 20 26 70 53 |strPart2|[1], &pS|
|00002ce0| 74 72 5b 74 68 65 4c 65 | 6e 67 74 68 20 2b 20 31 |tr[theLe|ngth + 1|
|00002cf0| 5d 2c 20 73 74 72 50 61 | 72 74 32 5b 30 5d 20 29 |], strPa|rt2[0] )|
|00002d00| 20 3b 0d 09 09 74 68 65 | 4c 65 6e 67 74 68 20 2b | ;...the|Length +|
|00002d10| 3d 20 73 74 72 50 61 72 | 74 32 5b 30 5d 20 3b 0d |= strPar|t2[0] ;.|
|00002d20| 09 09 0d 09 09 42 6c 6f | 63 6b 4d 6f 76 65 28 20 |.....Blo|ckMove( |
|00002d30| 26 6e 75 6d 62 65 72 4f | 66 50 61 67 65 73 5b 31 |&numberO|fPages[1|
|00002d40| 5d 2c 20 26 70 53 74 72 | 5b 74 68 65 4c 65 6e 67 |], &pStr|[theLeng|
|00002d50| 74 68 20 2b 20 31 5d 2c | 20 6e 75 6d 62 65 72 4f |th + 1],| numberO|
|00002d60| 66 50 61 67 65 73 5b 30 | 5d 20 29 20 3b 0d 09 09 |fPages[0|] ) ;...|
|00002d70| 74 68 65 4c 65 6e 67 74 | 68 20 2b 3d 20 6e 75 6d |theLengt|h += num|
|00002d80| 62 65 72 4f 66 50 61 67 | 65 73 5b 30 5d 20 3b 0d |berOfPag|es[0] ;.|
|00002d90| 09 09 0d 09 09 70 53 74 | 72 5b 30 5d 20 3d 20 74 |.....pSt|r[0] = t|
|00002da0| 68 65 4c 65 6e 67 74 68 | 20 3b 0d 09 09 0d 09 7d |heLength| ;.....}|
|00002db0| 0d 0d 09 4d 6f 76 65 54 | 6f 28 68 43 65 6e 74 65 |...MoveT|o(hCente|
|00002dc0| 72 20 2d 28 53 74 72 69 | 6e 67 57 69 64 74 68 28 |r -(Stri|ngWidth(|
|00002dd0| 70 53 74 72 29 20 3e 3e | 31 29 2c 20 64 72 61 77 |pStr) >>|1), draw|
|00002de0| 52 65 63 74 2e 62 6f 74 | 74 6f 6d 20 2b 38 30 29 |Rect.bot|tom +80)|
|00002df0| 3b 0d 09 44 72 61 77 53 | 74 72 69 6e 67 28 70 53 |;..DrawS|tring(pS|
|00002e00| 74 72 29 3b 0d 7d 0d 0d | 0d 2f 2a 2a 2a 2a 2a 2a |tr);.}..|./******|
|00002e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e40| 2a 2a 2a 2a 2a 2a 0d 20 | 20 4d 79 44 72 61 77 50 |******. | MyDrawP|
|00002e50| 69 63 43 6f 6d 6d 65 6e | 74 73 20 2d 20 54 68 69 |icCommen|ts - Thi|
|00002e60| 73 20 72 6f 75 74 69 6e | 65 20 6a 75 73 74 20 64 |s routin|e just d|
|00002e70| 72 61 77 73 20 73 6f 6d | 65 20 65 78 61 6d 70 6c |raws som|e exampl|
|00002e80| 65 0d 20 20 50 69 63 43 | 6f 6d 6d 65 6e 74 73 20 |e.  PicC|omments |
|00002e90| 77 68 69 63 68 20 77 69 | 6c 6c 20 6d 61 6b 65 20 |which wi|ll make |
|00002ea0| 61 20 50 6f 73 74 53 63 | 72 69 70 74 20 64 65 76 |a PostSc|ript dev|
|00002eb0| 69 63 65 20 64 69 73 70 | 6c 61 79 0d 20 20 22 54 |ice disp|lay.  "T|
|00002ec0| 68 69 73 20 77 61 73 20 | 64 72 61 77 6e 20 6f 6e |his was |drawn on|
|00002ed0| 20 61 20 50 6f 73 74 53 | 63 72 69 70 74 20 64 65 | a PostS|cript de|
|00002ee0| 76 69 63 65 2e 22 20 61 | 6e 64 20 6f 74 68 65 72 |vice." a|nd other|
|00002ef0| 20 64 65 76 69 63 65 73 | 0d 20 20 64 69 73 70 6c | devices|.  displ|
|00002f00| 61 79 20 22 54 68 69 73 | 20 77 61 73 20 64 72 61 |ay "This| was dra|
|00002f10| 77 6e 20 6f 6e 20 61 20 | 6e 6f 6e 2d 50 6f 73 74 |wn on a |non-Post|
|00002f20| 53 63 72 69 70 74 20 64 | 65 76 69 63 65 2e 22 20 |Script d|evice." |
|00002f30| 20 57 65 0d 20 20 75 73 | 65 20 50 6f 73 74 53 63 | We.  us|e PostSc|
|00002f40| 72 69 70 74 42 65 67 69 | 6e 20 50 6f 73 74 53 63 |riptBegi|n PostSc|
|00002f50| 72 69 70 74 45 6e 64 20 | 61 6e 64 20 50 6f 73 74 |riptEnd |and Post|
|00002f60| 53 63 72 69 70 74 48 61 | 6e 64 6c 65 2e 0d 0d 2a |ScriptHa|ndle...*|
|00002f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0d 0d 76 |********|****/..v|
|00002fb0| 6f 69 64 20 4d 79 44 72 | 61 77 50 69 63 43 6f 6d |oid MyDr|awPicCom|
|00002fc0| 6d 65 6e 74 73 28 29 0d | 7b 0d 09 73 68 6f 72 74 |ments().|{..short|
|00002fd0| 09 09 66 4e 75 6d 3b 0d | 0d 2f 2a 0d 09 44 72 61 |..fNum;.|./*..Dra|
|00002fe0| 77 20 73 6f 6d 65 20 51 | 75 69 63 6b 44 72 61 77 |w some Q|uickDraw|
|00002ff0| 20 74 6f 20 73 65 74 20 | 74 68 65 20 50 53 20 63 | to set |the PS c|
|00003000| 6c 69 70 2c 20 6e 6f 74 | 20 6e 65 63 65 73 73 61 |lip, not| necessa|
|00003010| 72 79 20 69 6e 0d 09 74 | 68 69 73 20 63 61 73 65 |ry in..t|his case|
|00003020| 2c 20 62 75 74 20 69 66 | 20 77 65 20 68 61 64 6e |, but if| we hadn|
|00003030| 27 74 20 6d 61 64 65 20 | 61 6e 79 20 51 75 69 63 |'t made |any Quic|
|00003040| 6b 44 72 61 77 20 63 61 | 6c 6c 73 20 79 65 74 2c |kDraw ca|lls yet,|
|00003050| 0d 09 74 68 65 20 50 6f | 73 74 53 63 72 69 70 74 |..the Po|stScript|
|00003060| 20 63 6c 69 70 20 77 6f | 75 6c 64 6e 27 74 20 67 | clip wo|uldn't g|
|00003070| 65 74 20 73 65 74 2c 20 | 61 6e 64 20 2a 65 76 65 |et set, |and *eve|
|00003080| 72 79 74 68 69 6e 67 2a | 0d 09 77 6f 75 6c 64 20 |rything*|..would |
|00003090| 62 65 20 63 6c 69 70 70 | 65 64 2e 20 20 54 68 69 |be clipp|ed.  Thi|
|000030a0| 73 20 63 6f 64 65 2c 20 | 77 68 69 63 68 20 64 6f |s code, |which do|
|000030b0| 65 73 6e 27 74 20 61 63 | 74 75 61 6c 6c 79 20 64 |esn't ac|tually d|
|000030c0| 72 61 77 0d 09 61 6e 79 | 74 68 69 6e 67 2c 20 69 |raw..any|thing, i|
|000030d0| 73 20 68 65 72 65 20 61 | 73 20 61 20 72 65 6d 69 |s here a|s a remi|
|000030e0| 6e 64 65 72 2e 0d 2a 2f | 0d 0d 09 50 65 6e 53 69 |nder..*/|...PenSi|
|000030f0| 7a 65 28 30 2c 20 30 29 | 3b 0d 09 4d 6f 76 65 54 |ze(0, 0)|;..MoveT|
|00003100| 6f 28 30 2c 20 30 29 3b | 20 0d 09 4c 69 6e 65 28 |o(0, 0);| ..Line(|
|00003110| 30 2c 20 30 29 3b 0d 09 | 50 65 6e 53 69 7a 65 28 |0, 0);..|PenSize(|
|00003120| 31 2c 20 31 29 3b 0d 0d | 2f 2a 0d 09 50 6f 73 74 |1, 1);..|/*..Post|
|00003130| 53 63 72 69 70 74 42 65 | 67 69 6e 20 74 65 6c 6c |ScriptBe|gin tell|
|00003140| 73 20 61 20 50 6f 73 74 | 53 63 72 69 70 74 20 64 |s a Post|Script d|
|00003150| 72 69 76 65 72 20 74 6f | 20 69 67 6e 6f 72 65 20 |river to| ignore |
|00003160| 51 75 69 63 6b 64 72 61 | 77 0d 09 63 61 6c 6c 73 |Quickdra|w..calls|
|00003170| 20 75 6e 74 69 6c 20 69 | 74 20 72 65 63 65 69 76 | until i|t receiv|
|00003180| 65 73 20 61 20 50 6f 73 | 74 53 63 72 69 70 74 45 |es a Pos|tScriptE|
|00003190| 6e 64 20 70 69 63 74 75 | 72 65 20 63 6f 6d 6d 65 |nd pictu|re comme|
|000031a0| 6e 74 2e 0d 09 54 68 69 | 73 20 6c 69 6e 65 20 69 |nt...Thi|s line i|
|000031b0| 73 20 69 67 6e 6f 72 65 | 64 20 62 79 20 6e 6f 6e |s ignore|d by non|
|000031c0| 2d 50 6f 73 74 53 63 72 | 69 70 74 20 70 72 69 6e |-PostScr|ipt prin|
|000031d0| 74 65 72 20 64 72 69 76 | 65 72 73 2e 0d 2a 2f 0d |ter driv|ers..*/.|
|000031e0| 0d 09 50 69 63 43 6f 6d | 6d 65 6e 74 28 50 6f 73 |..PicCom|ment(Pos|
|000031f0| 74 53 63 72 69 70 74 42 | 65 67 69 6e 2c 20 30 2c |tScriptB|egin, 0,|
|00003200| 20 6e 69 6c 29 3b 0d 0d | 2f 2a 0d 09 51 75 69 63 | nil);..|/*..Quic|
|00003210| 6b 44 72 61 77 20 72 65 | 70 72 65 73 65 6e 74 61 |kDraw re|presenta|
|00003220| 74 69 6f 6e 2e 20 54 68 | 65 73 65 20 63 61 6c 6c |tion. Th|ese call|
|00003230| 73 20 77 69 6c 6c 20 6f | 6e 6c 79 20 62 65 20 65 |s will o|nly be e|
|00003240| 78 65 63 75 74 65 64 20 | 62 79 0d 09 51 75 69 63 |xecuted |by..Quic|
|00003250| 6b 44 72 61 77 20 70 72 | 69 6e 74 65 72 73 2e 20 |kDraw pr|inters. |
|00003260| 20 53 65 74 20 74 68 65 | 20 66 6f 6e 74 20 74 6f | Set the| font to|
|00003270| 20 54 69 6d 65 73 20 49 | 74 61 6c 69 63 20 31 34 | Times I|talic 14|
|00003280| 20 70 74 20 61 6e 64 20 | 74 68 65 6e 0d 09 6d 6f | pt and |then..mo|
|00003290| 76 65 20 61 6e 64 20 64 | 72 61 77 2e 0d 2a 2f 0d |ve and d|raw..*/.|
|000032a0| 0d 09 47 65 74 46 4e 75 | 6d 28 22 5c 70 54 69 6d |..GetFNu|m("\pTim|
|000032b0| 65 73 22 2c 20 26 66 4e | 75 6d 29 3b 0d 09 54 65 |es", &fN|um);..Te|
|000032c0| 78 74 46 6f 6e 74 28 66 | 4e 75 6d 29 3b 0d 09 54 |xtFont(f|Num);..T|
|000032d0| 65 78 74 53 69 7a 65 28 | 31 34 29 3b 0d 09 54 65 |extSize(|14);..Te|
|000032e0| 78 74 46 61 63 65 28 69 | 74 61 6c 69 63 29 3b 0d |xtFace(i|talic);.|
|000032f0| 09 4d 6f 76 65 54 6f 28 | 31 32 37 2c 20 32 32 37 |.MoveTo(|127, 227|
|00003300| 29 3b 0d 09 44 72 61 77 | 53 74 72 69 6e 67 28 22 |);..Draw|String("|
|00003310| 5c 70 54 68 69 73 20 77 | 61 73 20 64 72 61 77 6e |\pThis w|as drawn|
|00003320| 20 6f 6e 20 61 20 6e 6f | 6e 2d 50 6f 73 74 53 63 | on a no|n-PostSc|
|00003330| 72 69 70 74 20 64 65 76 | 69 63 65 2e 22 29 3b 0d |ript dev|ice.");.|
|00003340| 09 54 65 78 74 46 61 63 | 65 28 30 29 3b 0d 0d 2f |.TextFac|e(0);../|
|00003350| 2a 0d 09 50 6f 73 74 53 | 63 72 69 70 74 20 72 65 |*..PostS|cript re|
|00003360| 70 72 65 73 65 6e 74 61 | 74 69 6f 6e 2e 20 54 68 |presenta|tion. Th|
|00003370| 65 73 65 20 63 61 6c 6c | 73 20 77 69 6c 6c 20 6f |ese call|s will o|
|00003380| 6e 6c 79 20 62 65 20 65 | 78 65 63 75 74 65 64 20 |nly be e|xecuted |
|00003390| 62 79 0d 09 50 6f 73 74 | 53 63 72 69 70 74 20 70 |by..Post|Script p|
|000033a0| 72 69 6e 74 65 72 73 2e | 20 20 57 65 20 64 72 61 |rinters.|  We dra|
|000033b0| 77 20 74 68 65 20 73 61 | 6d 65 20 61 73 20 61 62 |w the sa|me as ab|
|000033c0| 6f 76 65 2c 20 73 61 6e | 73 20 74 68 65 20 22 6e |ove, san|s the "n|
|000033d0| 6f 6e 2d 22 0d 09 61 6e | 64 20 73 68 69 66 74 65 |on-"..an|d shifte|
|000033e0| 64 20 6c 65 66 74 20 61 | 20 74 61 64 2e 0d 2a 2f |d left a| tad..*/|
|000033f0| 0d 0d 09 4d 79 53 65 6e | 64 50 6f 73 74 53 63 72 |...MySen|dPostScr|
|00003400| 69 70 74 28 22 5c 70 30 | 20 37 36 30 20 74 72 61 |ipt("\p0| 760 tra|
|00003410| 6e 73 6c 61 74 65 20 31 | 20 2d 31 20 73 63 61 6c |nslate 1| -1 scal|
|00003420| 65 22 29 3b 0d 09 4d 79 | 53 65 6e 64 50 6f 73 74 |e");..My|SendPost|
|00003430| 53 63 72 69 70 74 28 22 | 5c 70 2f 54 69 6d 65 73 |Script("|\p/Times|
|00003440| 2d 49 74 61 6c 69 63 20 | 66 69 6e 64 66 6f 6e 74 |-Italic |findfont|
|00003450| 20 31 34 20 73 63 61 6c | 65 66 6f 6e 74 20 73 65 | 14 scal|efont se|
|00003460| 74 66 6f 6e 74 22 29 3b | 0d 09 4d 79 53 65 6e 64 |tfont");|..MySend|
|00003470| 50 6f 73 74 53 63 72 69 | 70 74 28 22 5c 70 31 33 |PostScri|pt("\p13|
|00003480| 35 20 35 33 33 20 6d 6f | 76 65 74 6f 20 28 54 68 |5 533 mo|veto (Th|
|00003490| 69 73 20 77 61 73 20 64 | 72 61 77 6e 20 6f 6e 20 |is was d|rawn on |
|000034a0| 61 20 50 6f 73 74 53 63 | 72 69 70 74 20 64 65 76 |a PostSc|ript dev|
|000034b0| 69 63 65 2e 29 20 73 68 | 6f 77 22 29 3b 0d 0d 2f |ice.) sh|ow");../|
|000034c0| 2a 0d 09 50 6f 73 74 53 | 63 72 69 70 74 45 6e 64 |*..PostS|criptEnd|
|000034d0| 20 74 65 6c 6c 73 20 61 | 20 50 6f 73 74 53 63 72 | tells a| PostScr|
|000034e0| 69 70 74 20 64 72 69 76 | 65 72 20 74 6f 20 73 74 |ipt driv|er to st|
|000034f0| 61 72 74 20 65 78 65 63 | 75 74 69 6e 67 0d 09 51 |art exec|uting..Q|
|00003500| 75 69 63 6b 44 72 61 77 | 20 63 61 6c 6c 73 20 6e |uickDraw| calls n|
|00003510| 6f 72 6d 61 6c 6c 79 20 | 61 67 61 69 6e 2e 0d 2a |ormally |again..*|
|00003520| 2f 0d 0d 09 50 69 63 43 | 6f 6d 6d 65 6e 74 28 50 |/...PicC|omment(P|
|00003530| 6f 73 74 53 63 72 69 70 | 74 45 6e 64 2c 20 30 2c |ostScrip|tEnd, 0,|
|00003540| 20 6e 69 6c 29 3b 0d 7d | 0d 0d 0d 2f 2a 2a 2a 2a | nil);.}|.../****|
|00003550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003580| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 20 20 4d 79 53 65 6e |********|.  MySen|
|00003590| 64 50 6f 73 74 53 63 72 | 69 70 74 20 2d 20 54 68 |dPostScr|ipt - Th|
|000035a0| 69 73 20 72 6f 75 74 69 | 6e 65 20 6a 75 73 74 20 |is routi|ne just |
|000035b0| 70 61 63 6b 61 67 65 73 | 20 74 68 65 20 70 61 73 |packages| the pas|
|000035c0| 73 65 64 0d 20 20 50 61 | 73 63 61 6c 20 73 74 72 |sed.  Pa|scal str|
|000035d0| 69 6e 67 20 69 6e 74 6f | 20 61 20 68 61 6e 64 6c |ing into| a handl|
|000035e0| 65 20 61 6e 64 20 73 65 | 6e 64 73 20 74 68 65 20 |e and se|nds the |
|000035f0| 50 6f 73 74 53 63 72 69 | 70 74 48 61 6e 64 6c 65 |PostScri|ptHandle|
|00003600| 0d 20 20 50 69 63 43 6f | 6d 6d 65 6e 74 2e 0d 0d |.  PicCo|mment...|
|00003610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|00003650| 76 6f 69 64 20 4d 79 53 | 65 6e 64 50 6f 73 74 53 |void MyS|endPostS|
|00003660| 63 72 69 70 74 28 53 74 | 72 32 35 35 20 74 68 65 |cript(St|r255 the|
|00003670| 50 6f 73 74 53 63 72 69 | 70 74 29 0d 7b 0d 09 4f |PostScri|pt).{..O|
|00003680| 53 45 72 72 09 65 72 72 | 3b 0d 09 48 61 6e 64 6c |SErr.err|;..Handl|
|00003690| 65 09 74 68 65 50 53 48 | 64 6c 3b 0d 09 50 74 72 |e.thePSH|dl;..Ptr|
|000036a0| 09 09 74 68 65 50 53 50 | 74 72 3b 0d 09 6c 6f 6e |..thePSP|tr;..lon|
|000036b0| 67 09 74 65 78 74 4c 65 | 6e 3b 0d 0d 2f 2a 0d 09 |g.textLe|n;../*..|
|000036c0| 43 72 65 61 74 65 20 61 | 20 68 61 6e 64 6c 65 20 |Create a| handle |
|000036d0| 66 6f 72 20 74 68 65 20 | 70 61 73 73 65 64 20 73 |for the |passed s|
|000036e0| 74 72 69 6e 67 20 70 6c | 75 73 20 61 20 63 61 72 |tring pl|us a car|
|000036f0| 72 69 61 67 65 0d 09 72 | 65 74 75 72 6e 2e 20 20 |riage..r|eturn.  |
|00003700| 4d 6f 76 65 20 74 68 65 | 20 73 74 72 69 6e 67 27 |Move the| string'|
|00003710| 73 20 64 61 74 61 20 69 | 6e 74 6f 20 74 68 65 20 |s data i|nto the |
|00003720| 68 61 6e 64 6c 65 2c 20 | 73 74 75 66 66 20 61 0d |handle, |stuff a.|
|00003730| 09 63 61 72 72 69 61 67 | 65 20 72 65 74 75 72 6e |.carriag|e return|
|00003740| 20 6f 6e 20 74 68 65 20 | 65 6e 64 2c 20 63 61 6c | on the |end, cal|
|00003750| 6c 20 50 69 63 43 6f 6d | 6d 65 6e 74 2c 20 61 6e |l PicCom|ment, an|
|00003760| 64 20 66 69 6e 61 6c 6c | 79 0d 09 64 69 73 70 6f |d finall|y..dispo|
|00003770| 73 65 20 6f 66 20 74 68 | 65 20 68 61 6e 64 6c 65 |se of th|e handle|
|00003780| 2e 0d 2a 2f 0d 09 74 65 | 78 74 4c 65 6e 20 3d 20 |..*/..te|xtLen = |
|00003790| 74 68 65 50 6f 73 74 53 | 63 72 69 70 74 5b 30 5d |thePostS|cript[0]|
|000037a0| 3b 0d 09 74 68 65 50 53 | 48 64 6c 20 3d 20 54 65 |;..thePS|Hdl = Te|
|000037b0| 6d 70 4e 65 77 48 61 6e | 64 6c 65 28 74 65 78 74 |mpNewHan|dle(text|
|000037c0| 4c 65 6e 20 2b 31 2c 20 | 26 65 72 72 29 3b 0d 0d |Len +1, |&err);..|
|000037d0| 09 69 66 20 28 21 65 72 | 72 29 0d 09 7b 0d 09 09 |.if (!er|r)..{...|
|000037e0| 74 68 65 50 53 50 74 72 | 20 3d 20 2a 74 68 65 50 |thePSPtr| = *theP|
|000037f0| 53 48 64 6c 3b 0d 09 09 | 42 6c 6f 63 6b 4d 6f 76 |SHdl;...|BlockMov|
|00003800| 65 28 26 74 68 65 50 6f | 73 74 53 63 72 69 70 74 |e(&thePo|stScript|
|00003810| 5b 31 5d 2c 20 74 68 65 | 50 53 50 74 72 2c 20 74 |[1], the|PSPtr, t|
|00003820| 65 78 74 4c 65 6e 29 3b | 0d 09 09 2a 28 74 68 65 |extLen);|...*(the|
|00003830| 50 53 50 74 72 20 2b 74 | 65 78 74 4c 65 6e 29 20 |PSPtr +t|extLen) |
|00003840| 3d 20 28 63 68 61 72 29 | 20 31 33 3b 20 2f 2f 63 |= (char)| 13; //c|
|00003850| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 2e 0d |arriage |return..|
|00003860| 09 09 2b 2b 74 65 78 74 | 4c 65 6e 3b 0d 0d 09 09 |..++text|Len;....|
|00003870| 50 69 63 43 6f 6d 6d 65 | 6e 74 28 50 6f 73 74 53 |PicComme|nt(PostS|
|00003880| 63 72 69 70 74 48 61 6e | 64 6c 65 2c 20 74 65 78 |criptHan|dle, tex|
|00003890| 74 4c 65 6e 2c 20 74 68 | 65 50 53 48 64 6c 29 3b |tLen, th|ePSHdl);|
|000038a0| 0d 09 09 44 69 73 70 6f | 73 48 61 6e 64 6c 65 28 |...Dispo|sHandle(|
|000038b0| 74 68 65 50 53 48 64 6c | 29 3b 0d 09 7d 0d 7d 0d |thePSHdl|);..}.}.|
|000038c0| 0d 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |../*****|********|
|000038d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00003900| 20 20 4d 79 41 64 6a 75 | 73 74 4d 65 6e 75 73 20 |  MyAdju|stMenus |
|00003910| 2d 20 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 65 |- This r|outine e|
|00003920| 6e 61 62 6c 65 73 20 61 | 6e 64 20 64 69 73 61 62 |nables a|nd disab|
|00003930| 6c 65 73 20 6f 75 72 0d | 20 20 6d 65 6e 75 73 20 |les our.|  menus |
|00003940| 61 6e 64 20 6d 65 6e 75 | 20 69 74 65 6d 73 2e 0d |and menu| items..|
|00003950| 0d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00003960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00003990| 0d 76 6f 69 64 20 4d 79 | 41 64 6a 75 73 74 4d 65 |.void My|AdjustMe|
|000039a0| 6e 75 73 28 29 0d 7b 0d | 09 57 69 6e 64 6f 77 50 |nus().{.|.WindowP|
|000039b0| 74 72 09 09 61 63 74 69 | 76 65 57 69 6e 64 6f 77 |tr..acti|veWindow|
|000039c0| 3b 0d 09 4d 65 6e 75 48 | 61 6e 64 6c 65 09 09 61 |;..MenuH|andle..a|
|000039d0| 70 70 6c 65 4d 65 6e 75 | 2c 20 66 69 6c 65 4d 65 |ppleMenu|, fileMe|
|000039e0| 6e 75 2c 20 65 64 69 74 | 4d 65 6e 75 2c 20 64 6f |nu, edit|Menu, do|
|000039f0| 63 75 6d 65 6e 74 4d 65 | 6e 75 3b 0d 09 4d 79 44 |cumentMe|nu;..MyD|
|00003a00| 6f 63 75 6d 65 6e 74 50 | 74 72 09 61 63 74 69 76 |ocumentP|tr.activ|
|00003a10| 65 44 6f 63 75 6d 65 6e | 74 3b 0d 09 42 6f 6f 6c |eDocumen|t;..Bool|
|00003a20| 65 61 6e 09 09 09 64 6f | 63 4f 70 65 6e 2c 20 6f |ean...do|cOpen, o|
|00003a30| 6e 46 69 72 73 74 50 61 | 67 65 2c 20 6f 6e 4c 61 |nFirstPa|ge, onLa|
|00003a40| 73 74 50 61 67 65 2c 20 | 6d 61 78 50 61 67 65 73 |stPage, |maxPages|
|00003a50| 2c 20 6e 65 76 65 72 53 | 61 76 65 64 3b 0d 0d 09 |, neverS|aved;...|
|00003a60| 61 70 70 6c 65 4d 65 6e | 75 20 3d 20 47 65 74 4d |appleMen|u = GetM|
|00003a70| 48 61 6e 64 6c 65 28 6d | 41 70 70 6c 65 29 3b 0d |Handle(m|Apple);.|
|00003a80| 09 65 64 69 74 4d 65 6e | 75 20 3d 20 47 65 74 4d |.editMen|u = GetM|
|00003a90| 48 61 6e 64 6c 65 28 6d | 45 64 69 74 29 3b 0d 09 |Handle(m|Edit);..|
|00003aa0| 66 69 6c 65 4d 65 6e 75 | 20 3d 20 47 65 74 4d 48 |fileMenu| = GetMH|
|00003ab0| 61 6e 64 6c 65 28 6d 46 | 69 6c 65 29 3b 0d 09 64 |andle(mF|ile);..d|
|00003ac0| 6f 63 75 6d 65 6e 74 4d | 65 6e 75 20 3d 20 47 65 |ocumentM|enu = Ge|
|00003ad0| 74 4d 48 61 6e 64 6c 65 | 28 6d 44 6f 63 75 6d 65 |tMHandle|(mDocume|
|00003ae0| 6e 74 29 3b 0d 0d 09 45 | 6e 61 62 6c 65 49 74 65 |nt);...E|nableIte|
|00003af0| 6d 28 61 70 70 6c 65 4d | 65 6e 75 2c 20 69 41 62 |m(appleM|enu, iAb|
|00003b00| 6f 75 74 29 3b 0d 09 45 | 6e 61 62 6c 65 49 74 65 |out);..E|nableIte|
|00003b10| 6d 28 66 69 6c 65 4d 65 | 6e 75 2c 20 20 69 51 75 |m(fileMe|nu,  iQu|
|00003b20| 69 74 29 3b 0d 09 45 6e | 61 62 6c 65 49 74 65 6d |it);..En|ableItem|
|00003b30| 28 66 69 6c 65 4d 65 6e | 75 2c 20 20 69 4e 65 77 |(fileMen|u,  iNew|
|00003b40| 29 3b 0d 09 45 6e 61 62 | 6c 65 49 74 65 6d 28 66 |);..Enab|leItem(f|
|00003b50| 69 6c 65 4d 65 6e 75 2c | 20 20 69 4f 70 65 6e 29 |ileMenu,|  iOpen)|
|00003b60| 3b 0d 0d 2f 2a 0d 09 49 | 66 20 77 65 20 68 61 76 |;../*..I|f we hav|
|00003b70| 65 20 61 20 64 6f 63 75 | 6d 65 6e 74 20 6f 70 65 |e a docu|ment ope|
|00003b80| 6e 2c 20 77 65 20 65 6e | 61 62 6c 65 20 63 65 72 |n, we en|able cer|
|00003b90| 74 61 69 6e 20 6d 65 6e | 75 20 69 74 65 6d 73 2e |tain men|u items.|
|00003ba0| 0d 09 4f 74 68 65 72 77 | 69 73 65 2c 20 77 65 20 |..Otherw|ise, we |
|00003bb0| 64 6f 6e 27 74 2e 0d 2a | 2f 0d 0d 09 61 63 74 69 |don't..*|/...acti|
|00003bc0| 76 65 57 69 6e 64 6f 77 | 20 3d 20 46 72 6f 6e 74 |veWindow| = Front|
|00003bd0| 57 69 6e 64 6f 77 28 29 | 3b 0d 0d 09 69 66 20 28 |Window()|;...if (|
|00003be0| 61 63 74 69 76 65 57 69 | 6e 64 6f 77 29 0d 09 7b |activeWi|ndow)..{|
|00003bf0| 0d 09 09 69 66 20 28 28 | 28 57 69 6e 64 6f 77 50 |...if ((|(WindowP|
|00003c00| 65 65 6b 29 20 61 63 74 | 69 76 65 57 69 6e 64 6f |eek) act|iveWindo|
|00003c10| 77 29 2d 3e 77 69 6e 64 | 6f 77 4b 69 6e 64 20 21 |w)->wind|owKind !|
|00003c20| 3d 20 75 73 65 72 4b 69 | 6e 64 29 0d 09 09 09 61 |= userKi|nd)....a|
|00003c30| 63 74 69 76 65 57 69 6e | 64 6f 77 20 3d 20 6e 69 |ctiveWin|dow = ni|
|00003c40| 6c 3b 0d 09 7d 0d 0d 09 | 64 6f 63 4f 70 65 6e 20 |l;..}...|docOpen |
|00003c50| 3d 20 28 61 63 74 69 76 | 65 57 69 6e 64 6f 77 20 |= (activ|eWindow |
|00003c60| 21 3d 20 6e 69 6c 29 3b | 0d 0d 09 69 66 20 28 21 |!= nil);|...if (!|
|00003c70| 64 6f 63 4f 70 65 6e 29 | 09 09 09 09 09 09 09 09 |docOpen)|........|
|00003c80| 09 09 2f 2f 20 4e 6f 20 | 64 6f 63 75 6d 65 6e 74 |..// No |document|
|00003c90| 20 6f 70 65 6e 2e 0d 09 | 7b 0d 09 09 44 69 73 61 | open...|{...Disa|
|00003ca0| 62 6c 65 49 74 65 6d 28 | 66 69 6c 65 4d 65 6e 75 |bleItem(|fileMenu|
|00003cb0| 2c 20 69 50 72 69 6e 74 | 29 3b 0d 09 09 44 69 73 |, iPrint|);...Dis|
|00003cc0| 61 62 6c 65 49 74 65 6d | 28 66 69 6c 65 4d 65 6e |ableItem|(fileMen|
|00003cd0| 75 2c 20 69 43 6c 6f 73 | 65 29 3b 0d 09 09 44 69 |u, iClos|e);...Di|
|00003ce0| 73 61 62 6c 65 49 74 65 | 6d 28 66 69 6c 65 4d 65 |sableIte|m(fileMe|
|00003cf0| 6e 75 2c 20 69 53 61 76 | 65 29 3b 0d 09 09 44 69 |nu, iSav|e);...Di|
|00003d00| 73 61 62 6c 65 49 74 65 | 6d 28 66 69 6c 65 4d 65 |sableIte|m(fileMe|
|00003d10| 6e 75 2c 20 69 53 61 76 | 65 41 73 29 3b 0d 09 09 |nu, iSav|eAs);...|
|00003d20| 44 69 73 61 62 6c 65 49 | 74 65 6d 28 66 69 6c 65 |DisableI|tem(file|
|00003d30| 4d 65 6e 75 2c 20 69 50 | 61 67 65 53 65 74 75 70 |Menu, iP|ageSetup|
|00003d40| 29 3b 0d 09 09 44 69 73 | 61 62 6c 65 49 74 65 6d |);...Dis|ableItem|
|00003d50| 28 64 6f 63 75 6d 65 6e | 74 4d 65 6e 75 2c 20 69 |(documen|tMenu, i|
|00003d60| 49 6e 73 65 72 74 50 61 | 67 65 29 3b 0d 09 09 44 |InsertPa|ge);...D|
|00003d70| 69 73 61 62 6c 65 49 74 | 65 6d 28 64 6f 63 75 6d |isableIt|em(docum|
|00003d80| 65 6e 74 4d 65 6e 75 2c | 20 69 44 65 6c 65 74 65 |entMenu,| iDelete|
|00003d90| 50 61 67 65 29 3b 0d 09 | 09 44 69 73 61 62 6c 65 |Page);..|.Disable|
|00003da0| 49 74 65 6d 28 64 6f 63 | 75 6d 65 6e 74 4d 65 6e |Item(doc|umentMen|
|00003db0| 75 2c 20 69 41 68 65 61 | 64 50 61 67 65 29 3b 0d |u, iAhea|dPage);.|
|00003dc0| 09 09 44 69 73 61 62 6c | 65 49 74 65 6d 28 64 6f |..Disabl|eItem(do|
|00003dd0| 63 75 6d 65 6e 74 4d 65 | 6e 75 2c 20 69 42 61 63 |cumentMe|nu, iBac|
|00003de0| 6b 50 61 67 65 29 3b 0d | 09 7d 0d 09 65 6c 73 65 |kPage);.|.}..else|
|00003df0| 09 09 09 09 09 09 09 09 | 09 09 09 09 2f 2f 20 41 |........|....// A|
|00003e00| 20 64 6f 63 75 6d 65 6e | 74 20 69 73 20 6f 70 65 | documen|t is ope|
|00003e10| 6e 2e 0d 09 7b 0d 09 09 | 45 6e 61 62 6c 65 49 74 |n...{...|EnableIt|
|00003e20| 65 6d 28 66 69 6c 65 4d | 65 6e 75 2c 20 69 50 72 |em(fileM|enu, iPr|
|00003e30| 69 6e 74 29 3b 0d 09 09 | 45 6e 61 62 6c 65 49 74 |int);...|EnableIt|
|00003e40| 65 6d 28 66 69 6c 65 4d | 65 6e 75 2c 20 69 43 6c |em(fileM|enu, iCl|
|00003e50| 6f 73 65 29 3b 0d 09 09 | 45 6e 61 62 6c 65 49 74 |ose);...|EnableIt|
|00003e60| 65 6d 28 66 69 6c 65 4d | 65 6e 75 2c 20 69 50 61 |em(fileM|enu, iPa|
|00003e70| 67 65 53 65 74 75 70 29 | 3b 0d 09 09 45 6e 61 62 |geSetup)|;...Enab|
|00003e80| 6c 65 49 74 65 6d 28 66 | 69 6c 65 4d 65 6e 75 2c |leItem(f|ileMenu,|
|00003e90| 20 69 53 61 76 65 41 73 | 29 3b 0d 0d 2f 2a 0d 09 | iSaveAs|);../*..|
|00003ea0| 45 6e 61 62 6c 65 2f 64 | 69 73 61 62 6c 65 20 69 |Enable/d|isable i|
|00003eb0| 74 65 6d 73 20 62 61 73 | 65 64 20 6f 6e 20 74 68 |tems bas|ed on th|
|00003ec0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 70 61 67 65 |e number| of page|
|00003ed0| 73 20 69 6e 20 6f 75 72 | 20 64 6f 63 75 6d 65 6e |s in our| documen|
|00003ee0| 74 2c 0d 09 77 68 65 74 | 68 65 72 20 77 65 27 72 |t,..whet|her we'r|
|00003ef0| 65 20 6f 6e 20 74 68 65 | 20 66 69 72 73 74 20 6f |e on the| first o|
|00003f00| 72 20 6c 61 73 74 20 70 | 61 67 65 2c 20 61 6e 64 |r last p|age, and|
|00003f10| 20 77 68 65 74 68 65 72 | 20 6f 72 20 6e 6f 74 20 | whether| or not |
|00003f20| 69 74 27 73 0d 09 62 65 | 65 6e 20 73 61 76 65 64 |it's..be|en saved|
|00003f30| 20 79 65 74 2e 0d 2a 2f | 0d 09 09 61 63 74 69 76 | yet..*/|...activ|
|00003f40| 65 44 6f 63 75 6d 65 6e | 74 20 3d 20 4d 79 47 65 |eDocumen|t = MyGe|
|00003f50| 74 44 6f 63 50 74 72 28 | 61 63 74 69 76 65 57 69 |tDocPtr(|activeWi|
|00003f60| 6e 64 6f 77 29 3b 0d 0d | 09 09 69 66 20 28 61 63 |ndow);..|..if (ac|
|00003f70| 74 69 76 65 44 6f 63 75 | 6d 65 6e 74 2d 3e 6e 75 |tiveDocu|ment->nu|
|00003f80| 6d 50 61 67 65 73 20 3e | 20 31 29 09 09 09 09 2f |mPages >| 1)..../|
|00003f90| 2f 20 47 6f 74 20 61 74 | 20 6c 65 61 73 74 20 6f |/ Got at| least o|
|00003fa0| 6e 65 20 70 61 67 65 3f | 0d 09 09 09 45 6e 61 62 |ne page?|....Enab|
|00003fb0| 6c 65 49 74 65 6d 28 64 | 6f 63 75 6d 65 6e 74 4d |leItem(d|ocumentM|
|00003fc0| 65 6e 75 2c 20 69 44 65 | 6c 65 74 65 50 61 67 65 |enu, iDe|letePage|
|00003fd0| 29 3b 0d 09 09 65 6c 73 | 65 0d 09 09 09 44 69 73 |);...els|e....Dis|
|00003fe0| 61 62 6c 65 49 74 65 6d | 28 64 6f 63 75 6d 65 6e |ableItem|(documen|
|00003ff0| 74 4d 65 6e 75 2c 20 69 | 44 65 6c 65 74 65 50 61 |tMenu, i|DeletePa|
|00004000| 67 65 29 3b 0d 0d 09 09 | 6f 6e 46 69 72 73 74 50 |ge);....|onFirstP|
|00004010| 61 67 65 20 3d 20 28 61 | 63 74 69 76 65 44 6f 63 |age = (a|ctiveDoc|
|00004020| 75 6d 65 6e 74 2d 3e 63 | 75 72 50 61 67 65 20 3d |ument->c|urPage =|
|00004030| 3d 20 31 29 3b 0d 09 09 | 6f 6e 4c 61 73 74 50 61 |= 1);...|onLastPa|
|00004040| 67 65 20 3d 20 28 61 63 | 74 69 76 65 44 6f 63 75 |ge = (ac|tiveDocu|
|00004050| 6d 65 6e 74 2d 3e 63 75 | 72 50 61 67 65 20 3d 3d |ment->cu|rPage ==|
|00004060| 20 61 63 74 69 76 65 44 | 6f 63 75 6d 65 6e 74 2d | activeD|ocument-|
|00004070| 3e 6e 75 6d 50 61 67 65 | 73 29 3b 0d 09 09 6d 61 |>numPage|s);...ma|
|00004080| 78 50 61 67 65 73 20 3d | 20 28 61 63 74 69 76 65 |xPages =| (active|
|00004090| 44 6f 63 75 6d 65 6e 74 | 2d 3e 6e 75 6d 50 61 67 |Document|->numPag|
|000040a0| 65 73 20 3d 3d 20 6b 4d | 61 78 50 61 67 65 73 29 |es == kM|axPages)|
|000040b0| 3b 0d 09 09 6e 65 76 65 | 72 53 61 76 65 64 20 3d |;...neve|rSaved =|
|000040c0| 20 28 61 63 74 69 76 65 | 44 6f 63 75 6d 65 6e 74 | (active|Document|
|000040d0| 2d 3e 64 6f 63 75 6d 65 | 6e 74 46 53 53 70 65 63 |->docume|ntFSSpec|
|000040e0| 2e 6e 61 6d 65 5b 30 5d | 20 3d 3d 20 30 29 3b 0d |.name[0]| == 0);.|
|000040f0| 0d 09 09 69 66 20 28 6e | 65 76 65 72 53 61 76 65 |...if (n|everSave|
|00004100| 64 29 09 09 09 09 09 09 | 09 09 09 2f 2f 20 4e 65 |d)......|...// Ne|
|00004110| 76 65 72 20 73 61 76 65 | 64 20 74 68 69 73 20 64 |ver save|d this d|
|00004120| 6f 63 75 6d 65 6e 74 3f | 0d 09 09 09 44 69 73 61 |ocument?|....Disa|
|00004130| 62 6c 65 49 74 65 6d 28 | 66 69 6c 65 4d 65 6e 75 |bleItem(|fileMenu|
|00004140| 2c 20 69 53 61 76 65 29 | 3b 0d 09 09 65 6c 73 65 |, iSave)|;...else|
|00004150| 0d 09 09 09 45 6e 61 62 | 6c 65 49 74 65 6d 28 66 |....Enab|leItem(f|
|00004160| 69 6c 65 4d 65 6e 75 2c | 20 69 53 61 76 65 29 3b |ileMenu,| iSave);|
|00004170| 0d 0d 09 09 69 66 20 28 | 21 6d 61 78 50 61 67 65 |....if (|!maxPage|
|00004180| 73 29 09 09 09 09 09 09 | 09 09 09 2f 2f 20 43 61 |s)......|...// Ca|
|00004190| 6e 20 73 74 69 6c 6c 20 | 61 64 64 20 6d 6f 72 65 |n still |add more|
|000041a0| 20 70 61 67 65 73 3f 0d | 09 09 09 45 6e 61 62 6c | pages?.|...Enabl|
|000041b0| 65 49 74 65 6d 28 64 6f | 63 75 6d 65 6e 74 4d 65 |eItem(do|cumentMe|
|000041c0| 6e 75 2c 20 69 49 6e 73 | 65 72 74 50 61 67 65 29 |nu, iIns|ertPage)|
|000041d0| 3b 0d 09 09 65 6c 73 65 | 0d 09 09 09 44 69 73 61 |;...else|....Disa|
|000041e0| 62 6c 65 49 74 65 6d 28 | 64 6f 63 75 6d 65 6e 74 |bleItem(|document|
|000041f0| 4d 65 6e 75 2c 20 69 49 | 6e 73 65 72 74 50 61 67 |Menu, iI|nsertPag|
|00004200| 65 29 3b 0d 0d 09 09 69 | 66 20 28 21 6f 6e 4c 61 |e);....i|f (!onLa|
|00004210| 73 74 50 61 67 65 29 09 | 09 09 09 09 09 09 09 2f |stPage).|......./|
|00004220| 2f 20 4e 6f 74 20 6f 6e | 20 6c 61 73 74 20 70 61 |/ Not on| last pa|
|00004230| 67 65 3f 0d 09 09 09 45 | 6e 61 62 6c 65 49 74 65 |ge?....E|nableIte|
|00004240| 6d 28 64 6f 63 75 6d 65 | 6e 74 4d 65 6e 75 2c 20 |m(docume|ntMenu, |
|00004250| 69 41 68 65 61 64 50 61 | 67 65 29 3b 0d 09 09 65 |iAheadPa|ge);...e|
|00004260| 6c 73 65 0d 09 09 09 44 | 69 73 61 62 6c 65 49 74 |lse....D|isableIt|
|00004270| 65 6d 28 64 6f 63 75 6d | 65 6e 74 4d 65 6e 75 2c |em(docum|entMenu,|
|00004280| 20 69 41 68 65 61 64 50 | 61 67 65 29 3b 0d 0d 09 | iAheadP|age);...|
|00004290| 09 69 66 20 28 21 6f 6e | 46 69 72 73 74 50 61 67 |.if (!on|FirstPag|
|000042a0| 65 29 09 09 09 09 09 09 | 09 09 2f 2f 20 4e 6f 74 |e)......|..// Not|
|000042b0| 20 6f 6e 20 66 69 72 73 | 74 20 70 61 67 65 3f 0d | on firs|t page?.|
|000042c0| 09 09 09 45 6e 61 62 6c | 65 49 74 65 6d 28 64 6f |...Enabl|eItem(do|
|000042d0| 63 75 6d 65 6e 74 4d 65 | 6e 75 2c 20 69 42 61 63 |cumentMe|nu, iBac|
|000042e0| 6b 50 61 67 65 29 3b 0d | 09 09 65 6c 73 65 0d 09 |kPage);.|..else..|
|000042f0| 09 09 44 69 73 61 62 6c | 65 49 74 65 6d 28 64 6f |..Disabl|eItem(do|
|00004300| 63 75 6d 65 6e 74 4d 65 | 6e 75 2c 20 69 42 61 63 |cumentMe|nu, iBac|
|00004310| 6b 50 61 67 65 29 3b 0d | 09 7d 0d 7d 0d 0d 0d 2f |kPage);.|.}.}.../|
|00004320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 20 20 4d |********|****.  M|
|00004360| 79 44 6f 4d 65 6e 75 43 | 6f 6d 6d 61 6e 64 20 2d |yDoMenuC|ommand -|
|00004370| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 68 61 | This ro|utine ha|
|00004380| 6e 64 6c 65 73 20 74 68 | 65 20 64 69 73 70 61 74 |ndles th|e dispat|
|00004390| 63 68 69 6e 67 20 6f 66 | 0d 20 20 6f 75 72 20 6d |ching of|.  our m|
|000043a0| 65 6e 75 20 72 65 71 75 | 65 73 74 73 2e 0d 0d 2a |enu requ|ests...*|
|000043b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0d 0d 76 |********|****/..v|
|000043f0| 6f 69 64 20 4d 79 44 6f | 4d 65 6e 75 43 6f 6d 6d |oid MyDo|MenuComm|
|00004400| 61 6e 64 28 6c 6f 6e 67 | 20 6d 65 6e 75 52 65 73 |and(long| menuRes|
|00004410| 75 6c 74 29 0d 7b 0d 09 | 73 68 6f 72 74 09 09 09 |ult).{..|short...|
|00004420| 09 6d 65 6e 75 49 44 2c | 20 6d 65 6e 75 49 74 65 |.menuID,| menuIte|
|00004430| 6d 3b 0d 09 6c 6f 6e 67 | 09 09 09 09 63 75 72 50 |m;..long|....curP|
|00004440| 61 67 65 2c 20 6e 75 6d | 50 61 67 65 73 2c 20 6e |age, num|Pages, n|
|00004450| 65 77 50 61 67 65 3b 0d | 09 53 74 72 32 35 35 09 |ewPage;.|.Str255.|
|00004460| 09 09 09 64 61 4e 61 6d | 65 3b 0d 09 4f 53 45 72 |...daNam|e;..OSEr|
|00004470| 72 09 09 09 09 65 72 72 | 3b 0d 09 57 69 6e 64 6f |r....err|;..Windo|
|00004480| 77 50 74 72 09 09 09 61 | 63 74 69 76 65 57 69 6e |wPtr...a|ctiveWin|
|00004490| 64 6f 77 3b 0d 09 4d 79 | 44 6f 63 75 6d 65 6e 74 |dow;..My|Document|
|000044a0| 50 74 72 09 09 61 63 74 | 69 76 65 44 6f 63 75 6d |Ptr..act|iveDocum|
|000044b0| 65 6e 74 2c 20 61 44 6f | 63 75 6d 65 6e 74 3b 0d |ent, aDo|cument;.|
|000044c0| 0d 09 6d 65 6e 75 49 44 | 20 3d 20 6d 65 6e 75 52 |..menuID| = menuR|
|000044d0| 65 73 75 6c 74 20 3e 3e | 31 36 3b 0d 09 6d 65 6e |esult >>|16;..men|
|000044e0| 75 49 74 65 6d 20 3d 20 | 6d 65 6e 75 52 65 73 75 |uItem = |menuResu|
|000044f0| 6c 74 20 26 20 30 78 30 | 30 30 30 46 46 46 46 3b |lt & 0x0|000FFFF;|
|00004500| 0d 09 61 63 74 69 76 65 | 57 69 6e 64 6f 77 20 3d |..active|Window =|
|00004510| 20 46 72 6f 6e 74 57 69 | 6e 64 6f 77 28 29 3b 0d | FrontWi|ndow();.|
|00004520| 09 61 63 74 69 76 65 44 | 6f 63 75 6d 65 6e 74 20 |.activeD|ocument |
|00004530| 3d 20 4d 79 47 65 74 44 | 6f 63 50 74 72 28 61 63 |= MyGetD|ocPtr(ac|
|00004540| 74 69 76 65 57 69 6e 64 | 6f 77 29 3b 0d 0d 09 73 |tiveWind|ow);...s|
|00004550| 77 69 74 63 68 20 28 6d | 65 6e 75 49 44 29 0d 09 |witch (m|enuID)..|
|00004560| 7b 0d 09 09 63 61 73 65 | 20 6d 41 70 70 6c 65 3a |{...case| mApple:|
|00004570| 0d 09 09 09 73 77 69 74 | 63 68 20 28 6d 65 6e 75 |....swit|ch (menu|
|00004580| 49 74 65 6d 29 0d 09 09 | 09 7b 0d 09 09 09 09 63 |Item)...|.{.....c|
|00004590| 61 73 65 20 69 41 62 6f | 75 74 3a 09 09 09 09 09 |ase iAbo|ut:.....|
|000045a0| 2f 2f 20 41 62 6f 75 74 | 2e 0d 0d 09 09 09 09 09 |// About|........|
|000045b0| 41 6c 65 72 74 28 72 5f | 41 62 6f 75 74 2c 20 6e |Alert(r_|About, n|
|000045c0| 69 6c 29 3b 0d 09 09 09 | 09 09 62 72 65 61 6b 3b |il);....|..break;|
|000045d0| 0d 09 09 09 09 0d 09 09 | 09 09 64 65 66 61 75 6c |........|..defaul|
|000045e0| 74 3a 09 09 09 09 09 09 | 2f 2f 20 44 41 73 2c 20 |t:......|// DAs, |
|000045f0| 65 74 63 2e 0d 0d 09 09 | 09 09 09 47 65 74 49 74 |etc.....|...GetIt|
|00004600| 65 6d 28 47 65 74 4d 48 | 61 6e 64 6c 65 28 6d 41 |em(GetMH|andle(mA|
|00004610| 70 70 6c 65 29 2c 20 6d | 65 6e 75 49 74 65 6d 2c |pple), m|enuItem,|
|00004620| 20 64 61 4e 61 6d 65 29 | 3b 0d 09 09 09 09 09 4f | daName)|;......O|
|00004630| 70 65 6e 44 65 73 6b 41 | 63 63 28 64 61 4e 61 6d |penDeskA|cc(daNam|
|00004640| 65 29 3b 0d 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |e);.....|.break;.|
|00004650| 09 09 09 7d 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |...}....|break;..|
|00004660| 09 09 0d 09 09 09 63 61 | 73 65 20 6d 46 69 6c 65 |......ca|se mFile|
|00004670| 3a 0d 09 09 09 09 73 77 | 69 74 63 68 20 28 6d 65 |:.....sw|itch (me|
|00004680| 6e 75 49 74 65 6d 29 0d | 09 09 09 09 7b 09 09 09 |nuItem).|....{...|
|00004690| 09 09 09 0d 09 09 09 09 | 09 63 61 73 65 20 69 4e |........|.case iN|
|000046a0| 65 77 3a 09 09 09 09 09 | 2f 2f 20 4e 65 77 20 6f |ew:.....|// New o|
|000046b0| 72 20 4f 70 65 6e 2e 0d | 09 09 09 09 09 63 61 73 |r Open..|.....cas|
|000046c0| 65 20 69 4f 70 65 6e 3a | 0d 0d 09 09 09 09 09 09 |e iOpen:|........|
|000046d0| 65 72 72 20 3d 20 4d 79 | 43 72 65 61 74 65 44 6f |err = My|CreateDo|
|000046e0| 63 75 6d 65 6e 74 28 6b | 44 65 66 61 75 6c 74 54 |cument(k|DefaultT|
|000046f0| 69 74 6c 65 2c 20 26 61 | 44 6f 63 75 6d 65 6e 74 |itle, &a|Document|
|00004700| 29 3b 0d 0d 09 09 09 09 | 09 09 69 66 20 28 28 65 |);......|..if ((e|
|00004710| 72 72 20 3d 3d 20 6e 6f | 45 72 72 29 20 26 26 20 |rr == no|Err) && |
|00004720| 28 6d 65 6e 75 49 74 65 | 6d 20 3d 3d 20 69 4f 70 |(menuIte|m == iOp|
|00004730| 65 6e 29 29 0d 09 09 09 | 09 09 09 7b 0d 09 09 09 |en))....|...{....|
|00004740| 09 09 09 09 65 72 72 20 | 3d 20 4d 79 4c 6f 61 64 |....err |= MyLoad|
|00004750| 44 6f 63 75 6d 65 6e 74 | 28 61 44 6f 63 75 6d 65 |Document|(aDocume|
|00004760| 6e 74 29 3b 0d 0d 09 09 | 09 09 09 09 09 69 66 20 |nt);....|.....if |
|00004770| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 0d 09 |(err != |noErr)..|
|00004780| 09 09 09 09 09 09 09 4d | 79 44 69 73 70 6f 73 65 |.......M|yDispose|
|00004790| 44 6f 63 75 6d 65 6e 74 | 28 61 44 6f 63 75 6d 65 |Document|(aDocume|
|000047a0| 6e 74 29 3b 0d 09 09 09 | 09 09 09 7d 0d 09 09 09 |nt);....|...}....|
|000047b0| 09 09 09 0d 09 09 09 09 | 09 09 69 66 20 28 65 72 |........|..if (er|
|000047c0| 72 20 3d 3d 20 6e 6f 45 | 72 72 29 0d 09 09 09 09 |r == noE|rr).....|
|000047d0| 09 09 7b 0d 09 09 09 09 | 09 09 09 53 68 6f 77 57 |..{.....|...ShowW|
|000047e0| 69 6e 64 6f 77 28 61 44 | 6f 63 75 6d 65 6e 74 2d |indow(aD|ocument-|
|000047f0| 3e 64 6f 63 75 6d 65 6e | 74 57 69 6e 64 6f 77 29 |>documen|tWindow)|
|00004800| 3b 0d 09 09 09 09 09 09 | 09 53 65 6c 65 63 74 57 |;.......|.SelectW|
|00004810| 69 6e 64 6f 77 28 61 44 | 6f 63 75 6d 65 6e 74 2d |indow(aD|ocument-|
|00004820| 3e 64 6f 63 75 6d 65 6e | 74 57 69 6e 64 6f 77 29 |>documen|tWindow)|
|00004830| 3b 0d 09 09 09 09 09 09 | 09 4d 79 41 64 6a 75 73 |;.......|.MyAdjus|
|00004840| 74 4d 65 6e 75 73 28 29 | 3b 0d 09 09 09 09 09 09 |tMenus()|;.......|
|00004850| 7d 0d 09 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |}.......|break;..|
|00004860| 09 09 09 09 09 09 09 09 | 09 09 09 0d 09 09 09 09 |........|........|
|00004870| 09 63 61 73 65 20 69 43 | 6c 6f 73 65 3a 09 09 09 |.case iC|lose:...|
|00004880| 09 2f 2f 20 43 6c 6f 73 | 65 2e 0d 0d 09 09 09 09 |.// Clos|e.......|
|00004890| 09 09 4d 79 44 69 73 70 | 6f 73 65 44 6f 63 75 6d |..MyDisp|oseDocum|
|000048a0| 65 6e 74 28 61 63 74 69 | 76 65 44 6f 63 75 6d 65 |ent(acti|veDocume|
|000048b0| 6e 74 29 3b 0d 09 09 09 | 09 09 09 62 72 65 61 6b |nt);....|...break|
|000048c0| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 0d 09 |;.......|........|
|000048d0| 09 09 09 09 63 61 73 65 | 20 69 53 61 76 65 3a 09 |....case| iSave:.|
|000048e0| 09 09 09 09 2f 2f 20 53 | 61 76 65 20 6f 72 20 53 |....// S|ave or S|
|000048f0| 61 76 65 20 41 73 2e 0d | 09 09 09 09 09 63 61 73 |ave As..|.....cas|
|00004900| 65 20 69 53 61 76 65 41 | 73 3a 0d 0d 09 09 09 09 |e iSaveA|s:......|
|00004910| 09 09 65 72 72 20 3d 20 | 4d 79 53 61 76 65 44 6f |..err = |MySaveDo|
|00004920| 63 75 6d 65 6e 74 28 61 | 63 74 69 76 65 44 6f 63 |cument(a|ctiveDoc|
|00004930| 75 6d 65 6e 74 2c 20 28 | 6d 65 6e 75 49 74 65 6d |ument, (|menuItem|
|00004940| 20 3d 3d 20 69 53 61 76 | 65 41 73 29 29 3b 0d 09 | == iSav|eAs));..|
|00004950| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 0d 09 |.....bre|ak;.....|
|00004960| 09 09 09 09 63 61 73 65 | 20 69 50 61 67 65 53 65 |....case| iPageSe|
|00004970| 74 75 70 3a 09 09 09 2f | 2f 20 50 61 67 65 20 53 |tup:.../|/ Page S|
|00004980| 65 74 75 70 2e 0d 0d 09 | 09 09 09 09 09 69 66 20 |etup....|.....if |
|00004990| 28 4d 79 44 6f 50 61 67 | 65 53 65 74 75 70 28 61 |(MyDoPag|eSetup(a|
|000049a0| 63 74 69 76 65 44 6f 63 | 75 6d 65 6e 74 29 29 0d |ctiveDoc|ument)).|
|000049b0| 09 09 09 09 09 09 09 4d | 79 52 65 70 61 67 69 6e |.......M|yRepagin|
|000049c0| 61 74 65 44 6f 63 28 61 | 63 74 69 76 65 44 6f 63 |ateDoc(a|ctiveDoc|
|000049d0| 75 6d 65 6e 74 29 3b 0d | 09 09 09 09 09 09 62 72 |ument);.|......br|
|000049e0| 65 61 6b 3b 0d 0d 09 09 | 09 09 09 63 61 73 65 20 |eak;....|...case |
|000049f0| 69 50 72 69 6e 74 3a 09 | 09 09 09 2f 2f 20 50 72 |iPrint:.|...// Pr|
|00004a00| 69 6e 74 2e 0d 0d 09 09 | 09 09 09 09 65 72 72 20 |int.....|....err |
|00004a10| 3d 20 4d 79 50 72 69 6e | 74 44 6f 63 75 6d 65 6e |= MyPrin|tDocumen|
|00004a20| 74 28 61 63 74 69 76 65 | 44 6f 63 75 6d 65 6e 74 |t(active|Document|
|00004a30| 29 3b 0d 09 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |);......|.break;.|
|00004a40| 0d 09 09 09 09 09 63 61 | 73 65 20 69 51 75 69 74 |......ca|se iQuit|
|00004a50| 3a 09 09 09 09 09 2f 2f | 20 51 75 69 74 74 69 6e |:.....//| Quittin|
|00004a60| 67 2e 0d 0d 09 09 09 09 | 09 09 67 51 75 69 74 74 |g.......|..gQuitt|
|00004a70| 69 6e 67 20 3d 20 74 72 | 75 65 3b 0d 09 09 09 09 |ing = tr|ue;.....|
|00004a80| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 09 7d 0d 09 |..break;|.....}..|
|00004a90| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 0d 09 |...break|;.......|
|00004aa0| 09 09 63 61 73 65 20 6d | 45 64 69 74 3a 20 20 2f |..case m|Edit:  /|
|00004ab0| 2f 20 49 66 20 74 68 69 | 73 20 77 65 72 65 20 61 |/ If thi|s were a|
|00004ac0| 20 72 65 61 6c 20 61 70 | 70 2c 20 62 6c 61 68 2c | real ap|p, blah,|
|00004ad0| 20 62 6c 61 68 2c 20 62 | 6c 61 68 2e 0d 09 09 09 | blah, b|lah.....|
|00004ae0| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 0d 09 09 09 |.break;.|........|
|00004af0| 63 61 73 65 20 6d 44 6f | 63 75 6d 65 6e 74 3a 0d |case mDo|cument:.|
|00004b00| 09 09 09 09 73 77 69 74 | 63 68 20 28 6d 65 6e 75 |....swit|ch (menu|
|00004b10| 49 74 65 6d 29 0d 09 09 | 09 09 7b 09 09 09 09 09 |Item)...|..{.....|
|00004b20| 09 0d 09 09 09 09 09 63 | 61 73 65 20 69 49 6e 73 |.......c|ase iIns|
|00004b30| 65 72 74 50 61 67 65 3a | 09 09 09 2f 2f 20 49 6e |ertPage:|...// In|
|00004b40| 73 65 72 74 20 61 20 70 | 61 67 65 2e 0d 09 09 09 |sert a p|age.....|
|00004b50| 09 09 09 09 0d 09 09 09 | 09 09 09 09 6e 65 77 50 |........|....newP|
|00004b60| 61 67 65 20 3d 20 61 63 | 74 69 76 65 44 6f 63 75 |age = ac|tiveDocu|
|00004b70| 6d 65 6e 74 2d 3e 63 75 | 72 50 61 67 65 3b 0d 09 |ment->cu|rPage;..|
|00004b80| 09 09 09 09 09 09 4d 79 | 49 6e 73 65 72 74 50 61 |......My|InsertPa|
|00004b90| 67 65 28 61 63 74 69 76 | 65 44 6f 63 75 6d 65 6e |ge(activ|eDocumen|
|00004ba0| 74 2c 20 26 6e 65 77 50 | 61 67 65 29 3b 0d 09 09 |t, &newP|age);...|
|00004bb0| 09 09 09 09 09 61 63 74 | 69 76 65 44 6f 63 75 6d |.....act|iveDocum|
|00004bc0| 65 6e 74 2d 3e 63 75 72 | 50 61 67 65 20 3d 20 6e |ent->cur|Page = n|
|00004bd0| 65 77 50 61 67 65 3b 0d | 09 09 09 09 09 09 09 53 |ewPage;.|.......S|
|00004be0| 65 74 50 6f 72 74 28 61 | 63 74 69 76 65 57 69 6e |etPort(a|ctiveWin|
|00004bf0| 64 6f 77 29 3b 0d 09 09 | 09 09 09 09 09 45 72 61 |dow);...|.....Era|
|00004c00| 73 65 52 65 63 74 28 26 | 61 63 74 69 76 65 57 69 |seRect(&|activeWi|
|00004c10| 6e 64 6f 77 2d 3e 70 6f | 72 74 52 65 63 74 29 3b |ndow->po|rtRect);|
|00004c20| 0d 09 09 09 09 09 09 09 | 49 6e 76 61 6c 52 65 63 |........|InvalRec|
|00004c30| 74 28 26 61 63 74 69 76 | 65 57 69 6e 64 6f 77 2d |t(&activ|eWindow-|
|00004c40| 3e 70 6f 72 74 52 65 63 | 74 29 3b 0d 09 09 09 09 |>portRec|t);.....|
|00004c50| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 09 09 09 09 |..break;|........|
|00004c60| 09 09 09 09 09 0d 09 09 | 09 09 09 63 61 73 65 20 |........|...case |
|00004c70| 69 44 65 6c 65 74 65 50 | 61 67 65 3a 09 09 09 2f |iDeleteP|age:.../|
|00004c80| 2f 20 44 65 6c 65 74 65 | 20 63 75 72 72 65 6e 74 |/ Delete| current|
|00004c90| 20 70 61 67 65 2e 0d 09 | 09 09 09 09 09 09 0d 09 | page...|........|
|00004ca0| 09 09 09 09 09 09 63 75 | 72 50 61 67 65 20 3d 20 |......cu|rPage = |
|00004cb0| 61 63 74 69 76 65 44 6f | 63 75 6d 65 6e 74 2d 3e |activeDo|cument->|
|00004cc0| 63 75 72 50 61 67 65 3b | 0d 09 09 09 09 09 09 09 |curPage;|........|
|00004cd0| 6e 75 6d 50 61 67 65 73 | 20 3d 20 61 63 74 69 76 |numPages| = activ|
|00004ce0| 65 44 6f 63 75 6d 65 6e | 74 2d 3e 6e 75 6d 50 61 |eDocumen|t->numPa|
|00004cf0| 67 65 73 3b 0d 0d 09 09 | 09 09 09 09 09 69 66 20 |ges;....|.....if |
|00004d00| 28 6e 75 6d 50 61 67 65 | 73 20 3e 20 31 29 0d 09 |(numPage|s > 1)..|
|00004d10| 09 09 09 09 09 09 7b 0d | 09 09 09 09 09 09 09 09 |......{.|........|
|00004d20| 4d 79 44 69 73 70 6f 73 | 65 50 61 67 65 28 61 63 |MyDispos|ePage(ac|
|00004d30| 74 69 76 65 44 6f 63 75 | 6d 65 6e 74 2c 20 63 75 |tiveDocu|ment, cu|
|00004d40| 72 50 61 67 65 29 3b 0d | 0d 09 09 09 09 09 09 09 |rPage);.|........|
|00004d50| 09 69 66 20 28 63 75 72 | 50 61 67 65 20 3d 3d 20 |.if (cur|Page == |
|00004d60| 6e 75 6d 50 61 67 65 73 | 29 0d 09 09 09 09 09 09 |numPages|).......|
|00004d70| 09 09 09 63 75 72 50 61 | 67 65 20 3d 20 2d 2d 61 |...curPa|ge = --a|
|00004d80| 63 74 69 76 65 44 6f 63 | 75 6d 65 6e 74 2d 3e 63 |ctiveDoc|ument->c|
|00004d90| 75 72 50 61 67 65 3b 0d | 09 09 09 09 09 09 09 09 |urPage;.|........|
|00004da0| 0d 09 09 09 09 09 09 09 | 09 53 65 74 50 6f 72 74 |........|.SetPort|
|00004db0| 28 61 63 74 69 76 65 57 | 69 6e 64 6f 77 29 3b 0d |(activeW|indow);.|
|00004dc0| 09 09 09 09 09 09 09 09 | 45 72 61 73 65 52 65 63 |........|EraseRec|
|00004dd0| 74 28 26 61 63 74 69 76 | 65 57 69 6e 64 6f 77 2d |t(&activ|eWindow-|
|00004de0| 3e 70 6f 72 74 52 65 63 | 74 29 3b 0d 09 09 09 09 |>portRec|t);.....|
|00004df0| 09 09 09 09 49 6e 76 61 | 6c 52 65 63 74 28 26 61 |....Inva|lRect(&a|
|00004e00| 63 74 69 76 65 57 69 6e | 64 6f 77 2d 3e 70 6f 72 |ctiveWin|dow->por|
|00004e10| 74 52 65 63 74 29 3b 0d | 09 09 09 09 09 09 09 7d |tRect);.|.......}|
|00004e20| 0d 09 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |.......b|reak;...|
|00004e30| 09 09 09 09 09 09 09 09 | 09 09 0d 09 09 09 09 09 |........|........|
|00004e40| 63 61 73 65 20 69 41 68 | 65 61 64 50 61 67 65 3a |case iAh|eadPage:|
|00004e50| 09 09 09 2f 2f 20 44 69 | 73 70 6c 61 79 20 61 68 |...// Di|splay ah|
|00004e60| 65 61 64 20 6f 6e 65 20 | 70 61 67 65 2e 0d 09 09 |ead one |page....|
|00004e70| 09 09 09 09 09 0d 09 09 | 09 09 09 09 09 63 75 72 |........|.....cur|
|00004e80| 50 61 67 65 20 3d 20 61 | 63 74 69 76 65 44 6f 63 |Page = a|ctiveDoc|
|00004e90| 75 6d 65 6e 74 2d 3e 63 | 75 72 50 61 67 65 3b 0d |ument->c|urPage;.|
|00004ea0| 09 09 09 09 09 09 09 6e | 75 6d 50 61 67 65 73 20 |.......n|umPages |
|00004eb0| 3d 20 61 63 74 69 76 65 | 44 6f 63 75 6d 65 6e 74 |= active|Document|
|00004ec0| 2d 3e 6e 75 6d 50 61 67 | 65 73 3b 0d 0d 09 09 09 |->numPag|es;.....|
|00004ed0| 09 09 09 09 69 66 20 28 | 63 75 72 50 61 67 65 20 |....if (|curPage |
|00004ee0| 3c 20 6e 75 6d 50 61 67 | 65 73 29 0d 09 09 09 09 |< numPag|es).....|
|00004ef0| 09 09 09 7b 0d 09 09 09 | 09 09 09 09 09 2b 2b 61 |...{....|.....++a|
|00004f00| 63 74 69 76 65 44 6f 63 | 75 6d 65 6e 74 2d 3e 63 |ctiveDoc|ument->c|
|00004f10| 75 72 50 61 67 65 3b 0d | 09 09 09 09 09 09 09 09 |urPage;.|........|
|00004f20| 0d 09 09 09 09 09 09 09 | 09 53 65 74 50 6f 72 74 |........|.SetPort|
|00004f30| 28 61 63 74 69 76 65 57 | 69 6e 64 6f 77 29 3b 0d |(activeW|indow);.|
|00004f40| 09 09 09 09 09 09 09 09 | 45 72 61 73 65 52 65 63 |........|EraseRec|
|00004f50| 74 28 26 61 63 74 69 76 | 65 57 69 6e 64 6f 77 2d |t(&activ|eWindow-|
|00004f60| 3e 70 6f 72 74 52 65 63 | 74 29 3b 0d 09 09 09 09 |>portRec|t);.....|
|00004f70| 09 09 09 09 49 6e 76 61 | 6c 52 65 63 74 28 26 61 |....Inva|lRect(&a|
|00004f80| 63 74 69 76 65 57 69 6e | 64 6f 77 2d 3e 70 6f 72 |ctiveWin|dow->por|
|00004f90| 74 52 65 63 74 29 3b 0d | 09 09 09 09 09 09 09 7d |tRect);.|.......}|
|00004fa0| 0d 09 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |.......b|reak;...|
|00004fb0| 09 09 09 09 09 09 09 09 | 09 09 0d 09 09 09 09 09 |........|........|
|00004fc0| 63 61 73 65 20 69 42 61 | 63 6b 50 61 67 65 3a 09 |case iBa|ckPage:.|
|00004fd0| 09 09 09 2f 2f 20 44 69 | 73 70 6c 61 79 20 62 61 |...// Di|splay ba|
|00004fe0| 63 6b 20 6f 6e 65 20 70 | 61 67 65 2e 0d 09 09 09 |ck one p|age.....|
|00004ff0| 09 09 09 09 0d 09 09 09 | 09 09 09 09 63 75 72 50 |........|....curP|
|00005000| 61 67 65 20 3d 20 61 63 | 74 69 76 65 44 6f 63 75 |age = ac|tiveDocu|
|00005010| 6d 65 6e 74 2d 3e 63 75 | 72 50 61 67 65 3b 0d 0d |ment->cu|rPage;..|
|00005020| 09 09 09 09 09 09 09 69 | 66 20 28 63 75 72 50 61 |.......i|f (curPa|
|00005030| 67 65 20 3e 20 31 29 0d | 09 09 09 09 09 09 09 7b |ge > 1).|.......{|
|00005040| 0d 09 09 09 09 09 09 09 | 09 2d 2d 61 63 74 69 76 |........|.--activ|
|00005050| 65 44 6f 63 75 6d 65 6e | 74 2d 3e 63 75 72 50 61 |eDocumen|t->curPa|
|00005060| 67 65 3b 0d 09 09 09 09 | 09 09 09 09 0d 09 09 09 |ge;.....|........|
|00005070| 09 09 09 09 09 53 65 74 | 50 6f 72 74 28 61 63 74 |.....Set|Port(act|
|00005080| 69 76 65 57 69 6e 64 6f | 77 29 3b 0d 09 09 09 09 |iveWindo|w);.....|
|00005090| 09 09 09 09 45 72 61 73 | 65 52 65 63 74 28 26 61 |....Eras|eRect(&a|
|000050a0| 63 74 69 76 65 57 69 6e | 64 6f 77 2d 3e 70 6f 72 |ctiveWin|dow->por|
|000050b0| 74 52 65 63 74 29 3b 0d | 09 09 09 09 09 09 09 09 |tRect);.|........|
|000050c0| 49 6e 76 61 6c 52 65 63 | 74 28 26 61 63 74 69 76 |InvalRec|t(&activ|
|000050d0| 65 57 69 6e 64 6f 77 2d | 3e 70 6f 72 74 52 65 63 |eWindow-|>portRec|
|000050e0| 74 29 3b 0d 09 09 09 09 | 09 09 09 7d 0d 09 09 09 |t);.....|...}....|
|000050f0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 7d 0d |...break|;.....}.|
|00005100| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 7d 0d 0d 09 |....brea|k;..}...|
|00005110| 48 69 6c 69 74 65 4d 65 | 6e 75 28 30 29 3b 0d 7d |HiliteMe|nu(0);.}|
|00005120| 0d 0d 0d 2f 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.../****|********|
|00005130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005160| 0d 20 20 4d 79 47 65 74 | 44 6f 63 50 74 72 20 2d |.  MyGet|DocPtr -|
|00005170| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 72 65 | This ro|utine re|
|00005180| 74 75 72 6e 73 20 61 20 | 70 6f 69 6e 74 65 72 20 |turns a |pointer |
|00005190| 74 6f 20 74 68 65 0d 20 | 20 70 72 69 76 61 74 65 |to the. | private|
|000051a0| 20 64 6f 63 75 6d 65 6e | 74 20 73 74 72 75 63 74 | documen|t struct|
|000051b0| 75 72 65 20 6f 75 72 20 | 61 70 70 6c 69 63 61 74 |ure our |applicat|
|000051c0| 69 6f 6e 20 61 74 74 61 | 63 68 65 73 20 74 6f 0d |ion atta|ches to.|
|000051d0| 20 20 69 74 73 20 77 69 | 6e 64 6f 77 73 2e 0d 0d |  its wi|ndows...|
|000051e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|00005220| 4d 79 44 6f 63 75 6d 65 | 6e 74 50 74 72 20 4d 79 |MyDocume|ntPtr My|
|00005230| 47 65 74 44 6f 63 50 74 | 72 28 57 69 6e 64 6f 77 |GetDocPt|r(Window|
|00005240| 50 74 72 20 77 68 69 63 | 68 57 69 6e 64 6f 77 29 |Ptr whic|hWindow)|
|00005250| 0d 7b 0d 09 4d 79 44 6f | 63 75 6d 65 6e 74 50 74 |.{..MyDo|cumentPt|
|00005260| 72 09 77 69 6e 64 6f 77 | 73 44 6f 63 75 6d 65 6e |r.window|sDocumen|
|00005270| 74 20 3d 20 6e 69 6c 3b | 0d 0d 09 69 66 20 28 77 |t = nil;|...if (w|
|00005280| 68 69 63 68 57 69 6e 64 | 6f 77 20 21 3d 20 6e 69 |hichWind|ow != ni|
|00005290| 6c 29 0d 09 09 77 69 6e | 64 6f 77 73 44 6f 63 75 |l)...win|dowsDocu|
|000052a0| 6d 65 6e 74 20 3d 20 28 | 4d 79 44 6f 63 75 6d 65 |ment = (|MyDocume|
|000052b0| 6e 74 50 74 72 29 20 47 | 65 74 57 52 65 66 43 6f |ntPtr) G|etWRefCo|
|000052c0| 6e 28 77 68 69 63 68 57 | 69 6e 64 6f 77 29 3b 0d |n(whichW|indow);.|
|000052d0| 0d 09 72 65 74 75 72 6e | 20 77 69 6e 64 6f 77 73 |..return| windows|
|000052e0| 44 6f 63 75 6d 65 6e 74 | 3b 0d 7d 0d 0d 00 00 00 |Document|;.}.....|
|000052f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005300| 00 00 01 00 00 00 02 58 | 00 00 01 58 00 00 00 3e |.......X|...X...>|
|00005310| 58 50 55 42 4c 49 43 41 | 50 49 47 4c 55 45 28 38 |XPUBLICA|PIGLUE(8|
|00005320| 35 29 3b 0d 0d 70 61 73 | 63 61 6c 20 76 6f 69 64 |5);..pas|cal void|
|00005330| 11 6d 65 6e 75 73 20 26 | 20 77 69 6e 64 6f 77 73 |.menus &| windows|
|00005340| 2e 63 02 00 00 00 54 45 | 58 54 4b 41 48 4c 01 00 |.c....TE|XTKAHL..|
|00005350| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 b4 00 00 |..TEXTKA|HL......|
|00005360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005370| 00 00 a8 b6 60 4a 00 00 | 52 6d 00 00 02 96 6f 66 |....`J..|Rm....of|
|00005380| 69 6c 65 29 0d 09 3d 20 | 47 58 50 55 42 4c 49 43 |ile)..= |GXPUBLIC|
|00005390| 41 50 49 47 4c 55 45 28 | 38 36 29 3b 0d 0d 0d 2f |APIGLUE(|86);.../|
|000053a0| 2f 20 4d 69 73 63 65 6c | 6c 61 6e 65 6f 75 73 20 |/ Miscel|laneous |
|000053b0| 52 6f 75 74 69 6e 65 73 | 0d 0d 0d 70 61 73 63 61 |Routines|...pasca|
|000053c0| 6c 20 76 6f 69 64 20 47 | 58 49 64 6c 65 4a 6f 62 |l void G|XIdleJob|
|000053d0| 20 28 67 78 4a 6f 62 29 | 0d 09 3d 20 47 58 50 55 | (gxJob)|..= GXPU|
|000053e0| 42 4c 49 43 41 50 49 47 | 4c 55 45 28 38 37 29 3b |BLICAPIG|LUE(87);|
|000053f0| 0d 0d 0d 23 69 66 64 65 | 66 20 5f 5f 63 70 6c 75 |...#ifde|f __cplu|
|00005400| 00 00 01 08 00 0b 00 00 | 33 cf 00 00 33 dc 0d 4d |........|3...3..M|
|00005410| 79 41 64 6a 75 73 74 4d | 65 6e 75 73 00 00 03 5c |yAdjustM|enus...\|
|00005420| 00 00 03 6c 11 4d 79 43 | 72 65 61 74 65 44 6f 63 |...l.MyC|reateDoc|
|00005430| 75 6d 65 6e 74 00 00 00 | 0b 91 00 00 0b a2 11 4d |ument...|.......M|
|00005440| 79 44 69 73 70 6f 73 65 | 44 6f 63 75 6d 65 6e 74 |yDispose|Document|
|00005450| 00 00 12 46 00 00 12 53 | 0d 4d 79 44 69 73 70 6f |...F...S|.MyDispo|
|00005460| 73 65 50 61 67 65 00 00 | 3e 2d 00 00 3e 3c 0f 4d |sePage..|>-..><.M|
|00005470| 79 44 6f 4d 65 6e 75 43 | 6f 6d 6d 61 6e 64 00 00 |yDoMenuC|ommand..|
|00005480| 17 5b 00 00 17 69 0f 4d | 79 44 72 61 77 43 6f 6e |.[...i.M|yDrawCon|
|00005490| 74 65 6e 74 73 00 00 00 | 29 ed 00 00 29 fe 11 4d |tents...|)...)..M|
|000054a0| 79 44 72 61 77 50 69 63 | 43 6f 6d 6d 65 6e 74 73 |yDrawPic|Comments|
|000054b0| 00 00 4c 67 00 00 4c 72 | 0b 4d 79 47 65 74 44 6f |..Lg..Lr|.MyGetDo|
|000054c0| 63 50 74 72 00 00 0f ab | 00 00 0f b7 0d 4d 79 49 |cPtr....|.....MyI|
|000054d0| 6e 73 65 72 74 50 61 67 | 65 00 00 00 30 8e 00 00 |nsertPag|e...0...|
|000054e0| 30 9e 11 4d 79 53 65 6e | 64 50 6f 73 74 53 63 72 |0..MySen|dPostScr|
|000054f0| 69 70 74 00 00 00 14 c7 | 00 00 14 d5 0f 4d 79 55 |ipt.....|.....MyU|
|00005500| 70 64 61 74 65 57 69 6e | 64 6f 77 00 00 00 00 48 |pdateWin|dow....H|
|00005510| 00 09 4d 6f 6e 61 63 6f | 00 00 00 00 00 00 00 00 |..Monaco|........|
|00005520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005530| 00 00 00 03 00 04 00 6b | 00 09 01 dc 02 7c 00 6b |.......k|.....|.k|
|00005540| 00 09 01 dc 02 7c aa 77 | c6 38 00 00 02 d2 00 00 |.....|.w|.8......|
|00005550| 02 d2 00 00 00 00 01 00 | 00 00 01 00 00 00 02 58 |........|.......X|
|00005560| 00 00 01 58 00 00 00 3e | 00 73 d8 50 19 58 00 00 |...X...>|.s.P.X..|
|00005570| 00 1c 00 3e 00 00 4d 50 | 53 52 00 01 00 0a 03 ef |...>..MP|SR......|
|00005580| ff ff 00 00 00 00 00 00 | 00 00 03 ed ff ff 00 00 |........|........|
|00005590| 01 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+